Var
Zn:integer;
Begin
Zn:=2*482734;
Write(Zn);
End.
Var p,h: Real;
begin
writeln('Введите p,h: ');
readln(p,h);
writeln('P=p*g*h=',p*10*h);
end.
Pascal
var
s : string;
T : text;
i : integer;
begin
assign (T,'File.txt'); //Ассоциация переменной T с файлом File.txt
rewrite (T); //Перезапись файла T и открытие его для записи
for i := 1 to 6 do
begin
readln (s);
writeln (T,s);
end;
close(T); //Закрытие файла T
end.
Трэкбол (но сейчас их называют тэчпэдом)
В а - количество проходов по циклу (а=2; 2*2=4 - четырёхзначное число Х)
в b - сумма двух пар цифр числа Х (x mod 100 - выделение двух последних цифр из Х)
a=2 b=17
17-9=8 ответ max X=9800