Program ghg;
var a,b,s:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
if (a<=2*109) and (b<=2*109) then
s:=a+b;
writeln('s=',s);
end.
Var mark:integer;
begin
readln(mark);
if mark=5 then writeln('молодец, я тобой горжусь!')
else if mark=4 then writeln('я рад, надеюсь, будет «5»')
else if mark=3 then writeln('не ленись и всё получится')
else writeln('ты, наверное, не ходишь на уроки');
end.
Пример:
4
<span>я рад, надеюсь, будет «5»</span>
27.Чашки: чашка "а", чашка "b", чашка "с"
Чайник
начало
взять чашку
Янту не сказали, какую из чашек взять, поэтому он "завис".
28.Брюндик существо жёлтого цвета;большой живот;много ест.
Хрюндик существо розового цвета;хобот;обливается водой.
Крюндик существо зелёного цвета;хвостик;махать хвостиком.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrGen(10,i->3*(i+1)); a.Println;
end.
<u>Результат</u>
3 6 9 12 15 18 21 24 27 30