fkn+antitotal

Element implicitly has an 'any' type because index expression is not of type 'number'.ts(7015)

Задача 12 Урок 13.1

Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:

1
2
6
3

А для 8:

Задача 11 Урок 13.1

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

var a:integer;
begin

writeln('vvedite chislo > 0');
readln(a);
 while (a > 0) do
  begin

   if((a mod 2) = 1) then
    writeln(a, '- ne chetnoe')
   else
    writeln(a, '- chetnoe');
  writeln('vvedite chislo > 0');
  readln(a);
  end;

writeln('konec!');
readln();
end. 

Задание 10 Урок 13.1

Задание 10 Урок 13.1

Задача 3 Урок 10.1

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

var i,a:integer;
begin
  write('vvedite celoe 4islo -  ');
  readln(a);
  if (a > 100) then
   for i:=a downto 1 do
     write(i, ' ')
  else
   for i:=1 to a do
     write(i, ' ');
  readln();
end. 

Задача 2 Урок 10.1

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

Задача 1 Урок 10.1

Выведите на экран, все четные числа от 35 до 64.

var i:integer;
begin
  for i:=35 to 64 do
      if ((i mod 2)=0) then
      write(i, ' ');
  readln();
end.    

Урок 12.1 Задача 5

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.

Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Урок 12.1 Задача 4

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

program project1;
var numb:integer;

begin
numb:=35;
  repeat
    numb:=numb+1;
  if((numb mod 2=0)and(numb mod 3=0)and(numb mod 6=0))then
    write(numb,' ');
  until (numb>116);
readln();
end.