1).В 8 литровый кувшин набрать воду-перелить в 3 литровый кувшин ( в 8 литровом остается 5 литров )
2).перелить из 8 литрового в 3 литровый ( в 8 литровом останется 2 литра )
3). Эти 2 литра перелить в 3 литровый кувшин
4). Набрать полностью 8 литровый кувшин и долить до конца из 8 литрового в 3 литровый и остаётся в 8 литровом 7 литров воды
1)твердь мыслеттэ добрэ
2)и земля
3) тысяча цы покой
4) тысяча тысяча ук наш зело
Var a: array[1..10] of integer; sum, i: integer;beginsum:=0;for i:=1 to 10 do begin readln(a[i]); if a[i] mod 2=0 then sum:= sum+a[i]; end;write(sum);end.
//PascalABC.Net 3.1.0.1200
var
c: char;
begin
readln(c);
if c in ['0'..'9'] then
writeln(ord(c))
else
writeln(chr(ord(c) + 1), chr(ord(c) + 2));
if c in ['A'..'Z'] then
writeln(LowCase(c));
end.