Program ff;
var
summ, count_terms:integer;
begin
summ:=0;
count_terms:=0;
while summ<>324 do
begin
summ:=summ+4;
count_terms:=count_terms+1;
end;
Writeln('Кол-во слагаемых: ',count_terms);
readln();
end.
Так?
var a, R: integer; S:real;
begin
writeln('Введите радиус круга');
readln(R);
writeln('Введите сторону квадрата');
read(a);
S:=3.14*R*R;
a:=a*a;
If S>a then write('Площадь круга больше площади квадрата')
else write('Площадь квадрата больше площади круга');
end.
40*60*176=422400 байт
422400/1024=412,5 Кбайт
412.5/1024= 0.4 Мбайт
На Pascal:
program sum4;uses crt;var a:integer;
begin writeln('Введите 4-х значное число');readln(a); writeln('Сумма крайних цифр = ',(a mod 10)+(a div 1000)); writeln('Сумма средних цифр = ',((a div 100) mod 10)+(a div 10) mod 10);end.