Program z1;
var a,b,c,p:double;
begin
readln(a);readln(b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
writeln(p);
readln
end.
выражение c:=a=b; означает положить в переменную с результат сравнения переменных a и b и делать это пока a < b, вероятней всего программа зациклится
<span>Если бы было написано</span>
<span><span>while a<b do c:=a:=b;</span></span>
тогда цикл отработает 1 раз и все 3 переменные будут равны b
var i,r,a:integer;
begin cls;
r:=0;
For i:=1 to 4 do
begin
read(a);
if a mod 2 = 0 then inc(r);
end;
writeln('chetnyh = ',r);
readln;
end.
Это выражение обозначает, что по длине монитор состоит из 1024 пикселей, а по ширине- из 768.
1)64/4=16 (к.)-могло быть
2)64-16=48(г.)-могло быть
Ответ:48 г.,16 к.
1)64/2=32(г.)-могло быть
2)64-32(к.)-могло быть
Отвеет:32 к.,32 г.