201/1024=0,196 //Переводим в Мб
500-0,196=499,804 мб
Ответ:499,804 Мбайт
1) Перейти на сайт https://урокцифры.рф/
2) Пролистать ниже и найти раздел "5-7 классы. Уровень для опытных специалистов", нажать на "пройти".
3)Ответить на пару следующих вопросов (выбор области, класса, пола, колличества игроков)
4) Прочитать короткий комикс и приступить к игре.
В игре нужно отдавать команды роботу, чтобы он двигался и фотографировал рыбок. Вначеле игры идёт объяснение о том, как правильно писать команды роботу.
Если я правильно понял условие, то...
var a,b,c:integer;
integer;
begin
readln(a,b,c);
If (a+b<100) or (a+c<100) or (b+c<100) then
writeln(1)
else
writeln(0)
<span>end.</span>
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end
Научить солдат военному делу и дисциплине .