Первая программа:
Program number1;
Var i,s,n:integer;
begin
n:=0; // счетчик чисел кратных четырем
for i:=1 to 10 do
begin
write('Напишите двузначное число № ',i);
read(s);
if( (s<10) or (s>99) ) then
begin
write('Введенное вами число не двузначное! ');
continue; // Пропустим итерацию цикла
end;
// Если число кратно четырем увеличим счетчик чисел на 1
if (s mod 4 = 0) then n:=n+1;
end;
write('Количество чисел кратных 4: ', n);
read();
end.
///////////
Вторая программа:
Program number2;
Var i,s,n,sum:integer;
begin
n:=0; // счетчик нечетных чисел
sum:=0; // сумма всех нечетных чисел
for i:=1 to 10 do
begin
write('Напишите двузначное число № ',i);
read(s);
if( (s<10) or (s>99) ) then
begin
write('Введенное вами число не двузначное! ');
continue; // Пропустим итерацию цикла
end;
// если число нечетное
if (s mod 2 <> 0) then
begin
// Добавим число к сумме всех нечетных чисел
sum := sum + s;
// Увеличим количество нечетных чисел на 1
n := n + 1;
end;
end;
write('Среднее арифметическое нечетных чисел: ', sum/n);
read();
end.
///////////
И третья программа:
Program number3;
Var i,s,firstNumber,secondNumber:integer;
begin
secondNumber:=0;
for i:=1 to 10 do
begin
write('Напишите двузначное число № ',i);
read(s);
if( (s<10) or (s>99) ) then
begin
write('Введенное вами число не двузначное! ');
continue; // Пропустим итерацию цикла
end;
// будем уменьшать на 1 введенное число
// до тех пор, пока оно не будет кратно 10
while (s mod 10 <> 0) do
begin
s := s-1;
secondNumber := secondNumber + 1; // таким образом запомним вторую цифру числа
end;
firstNumber := s div 10; // это будет первая цифра числа
// Проверим, первая цифра в 2 раза больше чем вторая?
if(firstNumber=secondNumber * 2) then write('Первая цифра числа в 2 раза больше чем вторая!:) ')
else write('Первая цифра числа не больше в 2 раза чем вторая :(');
secondNumber := 0;
end;
read();
end.