видемо 2010 будет так - MMX
Y=X5
Если Х=2, то 2*5= 10
Ответ: Y=10
Если Х=3, то 3*5=15
Ответ: Y=15
Если что-то не так, то я просто не до конца поняла задание)
Program myprogram2;
var
a,h,s:real;
begin
writeln('Введите длину основания a');
write('a = ');
readln(a);
writeln('Введите длину высоты h');
write('h = ');
readln(h);
s:=0,5*a*h;
write(Площадь треугольника с основанием ',a',' и высотой ',h,' равна = ',s);
readln;
readln;
end.
Операция div - это целочисленное деление. с = a div b - такая запись означает, что число а будет поделено на b и в переменную с запишется только целая часть от деления. 25 div 4 = 6. 25 div 5 = 5.
Операция mod наоборот находит не целую часть от деления, а остаток. Т.е. тут отбрасывается целочисленная часть деления. 25 mod 4 = 1 (т.к. если 25 разделить на 4, то получим 6 целых и 1 в остатке)
Теперь по заданию:
при 25 и 4
25 div 4 = 6. 6 <> 4 → A:=25 mod 4 = 1. Ответ 1
при 25 и 5
25 div 5 = 5. 5 = 5 → A:=25 div 5 = 5. Ответ 5
Var i,n:integer;
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.