Вкниге на одной странице помещается k строк. таким образом, на 1-й странице печатаются строки с 1-й - id880469820210527 от Даша2002111111 27.05.2021 01:53

Question

Информатика: Вкниге на одной странице помещается k строк. таким образом, на 1-й странице печатаются строки с 1-й по k -ю, на второй — с (k+1 )-й по (2k )-ю и т. д. напишите программу, по номеру строки n в тексте определяющую номер страницы, на которой будет напечатана эта строка, и порядковый номер этой строки на странице. выведите два числа — номер страницы, на которой будет напечатана эта строка, и номер строки на этой странице входные данные: во входном потоке в первой строке через пробел даны два числа k,n

Даша2002111111 · Accepted Answer

Var a,b:longint;
function sum (n:integer):integer;
var s:integer;
begin
s:=0;
while (n<>0) do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
write ('A = ');
readln (a);
write ('B = ');
readln (b);
if sum(a) > sum(b) then
writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
else if sum(b) > sum (a) then
writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
readln;
end.

MOGZ ответил