//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) begin var p:Biginteger:=1; var s:integer:=0; var n:=ReadInteger('Введите число'); for var i:=1 to n do begin p:=p*3*i; s:=s+3*i; end; Println('Сумма кратных 3 =',s,' Произведение =',p); end.
Тестовое решение: Введите число 20 Сумма кратных 3 = 630 Произведение = 8483004771271882804592640000
)напиши куда слово встовлять(вначало, вконец, посередине...); program z2; var s,s1:string; a:integer; begin write('Введите слово: ');read(s1); write('Введите строку: ');read(s); s:=s+' '; a:=length(s); writeln(a); insert(s1,s,a+1); writeln('Преобразованная строка: ',s); end. 2) program z1; var s:string; i,kol:integer; begin writeln('Введите строку'); read(s); kol:=0; for i:=1 to length(s) do if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and (s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and (s<>'8')and(s<>'9')and(s<>'0') then inc(kol); writeln(Kol); end.
begin
var p:Biginteger:=1;
var s:integer:=0;
var n:=ReadInteger('Введите число');
for var i:=1 to n do begin
p:=p*3*i;
s:=s+3*i;
end;
Println('Сумма кратных 3 =',s,' Произведение =',p);
end.
Тестовое решение:
Введите число 20
Сумма кратных 3 = 630 Произведение = 8483004771271882804592640000