Dim p As Double, i As Integer
p = 1
For i = 75 To 299 Step 5
p = p * i
Next i
Print "Произведение равно "; p
End
А это дурацкий вариант на случай, если преподаватель пожелает увидеть условный оператор. Он делает ту же работу, но примерно раз в десять медленнее.
Dim p As Double, i As Integer
p = 1
For i = 73 To 299
If i Mod 5 = 0 Then p = p * i
Next i
Print "Произведение равно "; p
End
Тактильная вроде... Этр когда касаешься чего-либо
Program xxx;
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>