Var
a,b,x,y,z:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
z:=b;
if b<0 then z:=-b;
for y:=1 to z do begin
x:=x+a;
end;
if b<0 then x:=-x;
writeln('Произведение чисел = ',x);
end.
Проверка по входным данным на фото
1) Биологическая информация -
генетической кодирование
информации, управление
сложными психологическими
процессами у высших
животных на основе передачи
энергии.
2) Социальная информация -
это способ (форма) передачи
знаний, эмоций и волевых
воздействий в обществе.
3) Кибернетическая
информация - это
характеристики управляющего
сигнала, передаваемого по
линии связи.
4) Философская информация -
это взаимодействие,
отражение, познание.
5) Информация - Это сведения
об объектах и явлениях
окружающей среды, их
параметрах, свойствах и
состоянии, которые уменьшают
имеющуюся о них степень
неопределённости неполноты и
знаний.
Целое-часть (неделя-день недели)
род-вид (цветок-маргаритка)
последовательность (среда,четверг)
причина-следствие (жара-жажда)
Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>