Program adsad; uses crt; var y:real; x:real; p:string; begin textcolor(Lightgreen); writeln('Введите значение x: '); readln(x); writeln('Введите y под корнем: '); readln(y); y:= sqrt(x); writeln('Ответ ', y); if x<=0 then if y<=0 then y:=0; //Обнулил счетчик y:=x*x; writeln('Ответ ', y);
end.
Procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
Вот пример всем программыprogram znanijatop;const null = 0;
procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
var n:integer;
begin
writeln('vvedite n');
readln(n);
s(n,null);
end.
Var k,i:integer;
begin
write ('Введите количество повторений: ');
readln (k);
for i:=1 to k do
writeln ('ПРИВЕТ!!!')
end.
Код
var
s: real;
begin
s := 114.12696;
writeln(s:6:2)
end.
Вывод
114.13
Известно количество байт для цвета ОДНОГО пикселя.
Известна ширина и высота фотографии в ПИКСЕЛЯХ.
Неужели трудно все перемножить?
Ответ 18 834 234 байт.