// какое задание, такой и ответ)) Program n1; const pi=3.14; var a,b: string; i,d,c,sum: integer; begin writeln('введите 2 слова'); readln(a); readln(b); c:=0; if a='ночь' then writeln('спокойной ночи,',b); sum:=0; for i:=1 to 10 do sum:=sum+i; while c<50 do c:=c+1; writeln('Значение d=',d); end.
Answers & Comments
Verified answer
// какое задание, такой и ответ))Program n1;
const pi=3.14;
var a,b: string;
i,d,c,sum: integer;
begin
writeln('введите 2 слова');
readln(a);
readln(b);
c:=0;
if a='ночь' then writeln('спокойной ночи,',b);
sum:=0;
for i:=1 to 10 do sum:=sum+i;
while c<50 do c:=c+1;
writeln('Значение d=',d);
end.