F,x переменные
begin начало счета
writeln ввод х с новой троки
readln задать значение х с новой строки
Программа решает уравнение
Выводит значение f
readln задерка экрана
конец программы.
Данная программа считает уравнение F;=-2*x*x+4*x-1 .4 с значениями которые задает пользователь.
в переменную S вводится возраст Саши ,
в переменную М вводится возраст Маши
если S > M тогда
выводим "Саша старше Маши "
иначе
если S < M тогда
выводим "Маша старше Саши"
иначе
выводим "Саша и Маша ровестники"
Так наверно?
<span>a:=g m2-m1/m2+m1</span>Если в Паскале, а в visual basic без <u>:</u><span>
</span>
Var
a, n, i, c: integer;
begin
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
if(a <= 17) then c := c + 1;
end;
writeln(c);
end.
В одном мегабайте 1024 килобайта, в каждом килобайте по 1024 байта.
в тоге получаем,что в 1 мегабайте 1024*1024=1048576 байта.
отсюда следует, что 0,25*1024=256 килобайт ,в итоге 256*1024 байта=262144 байта