Программа для 1. var n,b,s:integer; begin Write('Введите натуральное число и значение b: '); Read(n,b); if n>b then Writeln('Неверно') else begin s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10 end; if s mod 2=0 then Writeln('Верно') else Writeln('Неверно') end end.
Программа для 2. var k,m,n,b,s:integer; begin Write('Введите натуральное число и значения m,n: '); Read(k,m,n); if k mod n <> 0 then Writeln('Неверно') else begin s:=0; while k>0 do begin s:=s+k mod 10; k:=k div 10 end; if s>m then Writeln('Верно') else Writeln('Неверно') end end.
ответ: Кот Леопольд пошёл на рыбалку и наловил рыбы. Каждую рыбу он старательно взвесил. Первая рыба (самая маленькая), которую он взвешивал , весила ровно L грамм. Каждая следующая рыбина была на K грамм тяжелее предыдущей. Сколько весит вся рыба, которую наловил Леопольд, если известно что поймал он N(>0) рыб?
Технические условия. Программа считывает с клавиатуры число N-количество рыб, потом, через пробел, L-массу первой рыбы в граммах и через пробел-K-на сколько каждая следующая рыбина тяжелее предыдущей. Программа выводит на Экран одно целое число-массу всей пойманой рыбы в граммах.
var
n,b,s:integer;
begin
Write('Введите натуральное число и значение b: ');
Read(n,b);
if n>b then Writeln('Неверно')
else begin
s:=0;
while n>0 do begin
s:=s+n mod 10;
n:=n div 10
end;
if s mod 2=0 then Writeln('Верно') else Writeln('Неверно')
end
end.
Программа для 2.
var
k,m,n,b,s:integer;
begin
Write('Введите натуральное число и значения m,n: ');
Read(k,m,n);
if k mod n <> 0 then Writeln('Неверно')
else begin
s:=0;
while k>0 do begin
s:=s+k mod 10;
k:=k div 10
end;
if s>m then Writeln('Верно') else Writeln('Неверно')
end
end.
ответ: Кот Леопольд пошёл на рыбалку и наловил рыбы. Каждую рыбу он старательно взвесил. Первая рыба (самая маленькая), которую он взвешивал , весила ровно L грамм. Каждая следующая рыбина была на K грамм тяжелее предыдущей. Сколько весит вся рыба, которую наловил Леопольд, если известно что поймал он N(>0) рыб?
Технические условия. Программа считывает с клавиатуры число N-количество рыб, потом, через пробел, L-массу первой рыбы в граммах и через пробел-K-на сколько каждая следующая рыбина тяжелее предыдущей. Программа выводит на Экран одно целое число-массу всей пойманой рыбы в граммах.
Пример:
Ввод>10 250 100
Вывод>7000
Ввод>12 100 150
Вывод>11100