var
s,i,b,a:integer;
begin
Writeln('Введите два целых числа через пробел');
readln(a,b);
s:=0;
for i:=1 to b do s:=s+a;
writeln(s);
<span>end.</span>
Если ты сдаешь эту задачу на сайт acmu.ru или acmp.ru:
var a, b: longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(b - 1, ' ', a - 1);
end.
А, если ты её просто учителю показываешь:
var a, b: longint;
begin
write('Сколько банок прострелил Гарри? ');
readln(a);
write('Сколько банок прострелил Ларри? ');
readln(b);
writeln('Гарри не прострелил ', b - 1, ' банок');
writeln('Ларри не прострелил ', a - 1, ' банок');
end.
Var
c : integer;
k : char;
begin
c := 0;
while not eoln do
begin
read (k);
if k = ' ' then
begin
if c > 10 then
begin
write ('YES');
halt;
end;
c := 0;
end
else
c := c + 1;
end;
if c > 10 then write ('YES') else write ('NO');
end. <span>
</span>
б) да.
Моделирование представляет собой один из основных методов познания, является формой отражения действительности и заключается в выяснении или воспроизведении тех или иных свойств реальных объектов, предметов и явлений с помощью других объектов, процессов, явлений, либо с помощью абстрактного описания в виде изображения, плана, карты, совокупности уравнений, алгоритмов и программ.