Артемон
6 год назад
№ 1 задача заменить слово ''вирус'' на ''антивирус'',
№ 2 задача найти произведение чисел натурального числа.
ИНФОРМАТИКА, PASCAL ABC
ОТВЕТЫ
Зосимович
Jul 24, 2019
№1
Если не требуется ввод числа с клавиатуры, то вот:
var a: String;begina:=вирус;Write(анти,a);end.
Если же требуется, то вот:
var a: String;begin
Write(Слово:);
Readln(a);Write(анти,a);end.
№2
var a,b,c:integer;
begin
Write(Первое число: );
Readln(a);
Write(Второе число: );
Readln(b);c:=a*b;
Write(Результат: ,c);
end.
Если не требуется ввод числа с клавиатуры, то вот:
var a: String;begina:=вирус;Write(анти,a);end.
Если же требуется, то вот:
var a: String;begin
Write(Слово:);
Readln(a);Write(анти,a);end.
№2
var a,b,c:integer;
begin
Write(Первое число: );
Readln(a);
Write(Второе число: );
Readln(b);c:=a*b;
Write(Результат: ,c);
end.
293
Смежные вопросы:
