Var x, y: integer;
begin
readln(y);
x := 0;
if x>0 then (двоеточие не надо)
writeln(x, y);
end.
Uses crt;
var i:integer;
s:real;begin
s:=1;write(s);
for i:=1 to 50 do begin
i:=i+1;
s:=s*i;write('*',i);
end;
write (' = ',s);
<span>end.
P.s. Программа написана на языке PascalABC, странный ответ она выдает потому, что в данном языке есть ограничения, и число, которое получается, выходит за диапазон данного значения.</span>
Вроде 96 штук программ. Вы на всякий случай перепроверьте.
1) Пробелы ставятся после знаков препинания;
2) Знаки препинания ставятся сразу после слова - без пробела;
3) Дефис не обрамляется пробелами например: из-за
4) Тире обязательно обрамляется пробелами, например: Информатика - это...
5) Клавиша Enter нажимается в конце абзаца, а не в конце строки;
6) В тексте везде можно использовать только один пробел подряд;
и т.д.
Есть и еще правила конечно, но это пока все, что я вспомнил...
1 символ = 1 байт значит
Мира = 4 байтам
- = 1 байт
Мир = 3 байта
Итого 4+1+3 = 8 байтов