Program ufhg;
uses crt;
var a,b,c,d, m: integer;
begin
readln(a,b,c,d);
m:=a;
if(b>m) then m:=b;
if(c>m) then m:=c;
if(d>m) then m:=d;
writeln(m);
end.
Program Prices;
const max : integer = 10;
var
price : real;
i : integer;
begin
{ С использованием цикла FOR }
writeln('Используем цикл FOR');
write('Введите стоимость 1-го кг конфет: ');
readln(price);
for i:=1 to max do
begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
end;
{ С использованием цикла REPEAT }
i:=1;
writeln;
writeln('Используем цикл REPEAT');
repeat
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
until(i>max);
{ С использованием цикла WHILE }
i:=1;
writeln;
writeln('Используем цикл WHILE');
while(i<=max) do begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
end;
end;
Смотря где рисовала! Попробуй перезагрузить, у меня было такое в Paint, не открывается только твой рисунок? или все файлы-картинки? Если изображение не открывается , должна высветится табличка с какой либо надписью почему она не открывается! Есть очень много случаев , например: этот файл не потянет на твой компьютер, у тебя если тупой виндоус , или наоборот слишком отличный! Или файл ты неправильно сохранила, что тот просто на просто НЕ сохранился! Попробуй перезагрузить файл, возможно получиться, или почисти компьютер от файлов не нужных, возможно он перегружен слишком,
Вот решение я приложил в файле и на картинке
1 шаг. Набрать води в 9л ведро и перелить с 9л ведра в 5л ведро
Итого в 9 литровом ведре - 4 л, а в 5 литровом - 5
2 шаг. Сливаем с пяти литрового воду. С девяти литрового переливаем четыре литры в пятилитровый.
Итого в девяти литром - 0 литров, а в 5 литровом - 4 литры
3 шаг. Набираем воду в 9 л ведро и переливаем 1 литр в 5 л ведро и сливаем воду с 5 литрового ведра.
Итого 9л ведро - 8 л, 5 л ведро - 0 л.
4 шаг. Переливаем воду с 9л ведра в 5л ведро.
ИТОГО в 9 л - 3 литра