1 кувшином 3 л наливать воду в кувшин 8л. Наполнив большой кувшин, в маленьком останется 1л
2 вылить все из большого кувшина, перелить туда 1л из маленького и налить еще два маленьких кувшина в большой
Program yes_no;
var
n: integer;
begin
write('Введите число: ');
readln(n);
if (n mod 100 div 10) > 1 then
writeln('да')
else
writeln('нет');
end.
1) текстовые файлы 2) графические файлы
1)
Program n1; var cl,q: string; begin cl:='клоун'; writeln(cl); cl:=cl[1]+cl[4]+cl[2]+cl[3]+cl[5]; writeln(cl); end.
2)
Program n1; var i,k,k1: integer; st: string; x: char; begin readln(st); x:='м'; k := 0; k1:=0; for i := 1 to length(st) do if st[i] = x then k := k + 1; x:='н'; for i := 1 to length(st) do if st[i] = x then k1 := k1 + 1; if(k>k1) then writeln('м больше чем н'); if(k<k1) then writeln('н больше чем м'); end.
Примерно так...
Смотри картинку...