Const n=10;
var a:array[1..n] of real;
i,k:integer;
s:real;
begin
s:=0; k:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then s:=s+a[i];
if (a[i]<5) and (a[i]>-7) then inc(k);
end;
writeln(s,' ',k);
end.
Var sm, kg:integer;
begin
write('Введите рост (см): ');
readln(sm);
write('Введите вес (кг): ');
readln(kg);
if (sm-100)<kg then
write('Вам нужно похудеть на ',kg-(sm-100),' кг')
else
write('Вам нужно поправиться на ',sm-100-kg,' кг');
end.
16 Мб * 1000 = 16 000 Кб
16 000 Кб * 1000 = 16 000 000 байт
16 000 000 байт * 8 = 128 000 000 бит
Ввод(ЧИСЛО)
Цикл пока ЧИСЛО>0
Вывод(ОстатокОтДеления(ЧИСЛО / 10))
Число = Число / 10
КонецЦикла
Если нет стандарной операции остаток от деления можно посчитать как
ЧИСЛО - ((ЧИСЛО / 10)*10)
Вообще, это можно сделать при помощи программы ABBYY FineReader, она преобразует картинку (то есть скан) в текст, после чего можно его редактировать в текстовом редакторе