Каким будет распределение температуры во внутренних точках пластины, если в дополнение к условиям исходной задачи температура внешней среды по верхнему краю пластины ровно 20 градусов по цельсия, только в левом квадрате и возрастает на 50 градусов с переходом к каждому следующему вправо квадрату.
uses crt;
var
vvod,ok:string;
const
pass='[email protected]&$45%$!#hftHUgruG';
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
repeat
writeln('Введите пароль ');
readln (vvod);
until vvod=pass;
writeln('Принято');
end.
Program Ksushaa1999PasswordWhile;
uses crt;
var
vvod,ok:string;
const
pass='[email protected]&$45%$!#hftHUgruG';
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
while vvod<>pass do
begin
writeln('Введите пароль ');
readln (vvod);
end;
writeln('Принято');
end.
Program PKsushaa1999PasswordIf;
uses crt;
var
vvod,ok:string;
const
pass='[email protected]&$45%$!#hftHUgruG';
label
metka;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
metka: writeln('Введите пароль ');
readln (vvod);
if vvod<>pass then goto metka;
writeln('Принято');
end.