№ 1 задача заменить слово ''вирус'' на ''антивирус'',
№ 2 задача найти произведение чисел натурального числа.
ИНФОРМАТИКА, PASCAL ABC
№ 2 задача найти произведение чисел натурального числа.
ИНФОРМАТИКА, PASCAL ABC
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Если не требуется ввод числа с клавиатуры, то вот:
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.