Cntrl зажимаешь и выбираешь фигуру Круг и тянешь и он будет идеально ровный
Var a,sum,i,ii:integer;
begin
sum:=0;
readln(a);
for i:=1 to 4 do
begin
ii:=a mod 10;
a:=a div 10;
sum:=sum+ii*ii;
end;
writeln(sum);
end.
WIndows, MacOS, Linux, IOS, Android, IBM, DOS, El Capitan, sun os, microdos
Истинная дизъюнкция подразумевает то, что хотя бы 1 утверждение верно, а у имени "Эдуард" ни одно из условий не выполняется, значит ложно;
Ответ: 1