№ 1 задача заменить слово ''вирус'' на ''антивирус'', № 2 задача найти произведение ч
№ 1 задача заменить слово ''вирус'' на ''антивирус'',
№ 2 задача найти произведение чисел натурального числа.
ИНФОРМАТИКА, PASCAL ABC
Гость
Ответ(ы) на вопрос:
Гость №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.
Не нашли ответ?
Похожие вопросы