Var j,i:longint;
begin
for i:=2 to 3628800 begin
for j:=2 to 3628800 do writeln(i*j:10);writeln();
end;
readln;
end<span>.</span>
Var a, b: word;
k: byte;
begin
write ('Введите двузначное число: ');
readln (a);
b := a;
k := 0;
while b <> 0 do begin
a := a mod 10;
k := k + 1;
b := b div 10
end;
if (k <> 2) then
writeln ('Вводите только двузначные числа')
end.
Для Paskal ABC
Program magazin;
var
a:integer;
s:integer;
begin
s:=0;
writeln('Введите стоимость:');
readln(a);
If a<1000 then begin
writeln('Скидок нет');
writeln('Ваша сумма:',a);end;
If (a>=1000)and(a<=5000) then begin
s:=(a/100)*95;
writeln('Ваша скидка 5%');
writeln('Ваша сумма:',s);end;
If a>5000 then begin
s:=(a/100)*90;
writeln('Ваша скидка 10%');<span>
writeln('Ваша сумма:',s);end;
</span>End.
Пусть нужно узнать, где будет напечатана строка с номером n. Для предыдущих (n - 1) строк нужно (n - 1) div k полных страниц и ещё (n - 1) mod k строк на ((n - 1) div k + 1)-ой странице. n-я строка будет следующей на этой странице.
var
n, k, fullPages, restLines: integer;
begin
write('Номер строки: ');
readln(n);
write('Строк на странице: ');
readln(k);
fullPages := (n - 1) div k;
restLines := (n - 1) mod k;
writeln('Страница: ', fullPages + 1, ', строка: ', restLines + 1);
end.