program zagadki2;
var a, b, c, d:string;
label r;
begin
writeln('Привет, я программа, загаывающая загадки');
writeln('Будешь отгадывать ?');
readln(a);
if a = 'да' then writeln('Зимой и летом одним цветом.')
else
begin
writeln('пока');
goto r;
end;
Readln(b);
if b = 'ёлка' then writeln('правильно!')
else
begin
writeln('нет,попробуй ещё раз');
Readln(b);
if b = 'ёлка' then writeln('правильно!!!')
end;
writeln('Сидит красавица в темнице, а коса на улице.');
Readln(c);
if c = 'морковь' then writeln('правильно!')
else
begin
writeln('попробуй ещё раз');
Readln(c);
if c = 'морковь' then writeln('правильно')
end;
writeln('Не лает, не кусает, да в дом не пускает.');
Readln(d);
if d = 'замок' then writeln('правильно')
else
begin
writeln('попробуй ещё раз');
Readln(d);
if d = 'замок' then writeln('правильно');
end;
r:
end.
Если это Word, то выделяешь нужный фрагмент текста и нажимаешь сочетание клавиш Shift+F3.
Var n,i:integer; s:real;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+(2*i-1)/(2*i);
writeln('s = ',s);
end.
Пример:
n = 5
s = 3.85833333333333
V = 800*600*4 = 1920000 бит = 240000 байт ≈ 234,38 Кб
<span>a = int(input('a ='))
b = int(input('b ='))
c = int(input('c ='))
P = a+b+c
print("P = ",P)</span>