Разве это так сложно...

1. учитель или ученики нарисовали на доске рисунки и мальчик стирает их с доски
2. ученик собрал портфель и пошел по делам, другой зашел и готовиться к началу урока
3. девочка поливает цветы, незнаю относиться ли это к чему не будь

0 0

3 года назад

Написать программу для Pascal. Вычислите сумму положительных и кол-во отрицательных чисел на отрезке, концы которого вводятся с

antoshka1998

Var a,b,k1,k2,s:integer;
begin 
s:=0; 
k1:=0; 
writeln('Введите начало и конец отрезка'); 
read(a,b); 
k2:=b-a+1; 
repeat 
if b<0 then break; 
s:=s+b; 
b:=b-1; 
inc(k1); 
until (b=-1) or (b=a-1); 
writeln('Сумма всех целых положительных чисел на отрезке = ',s); 
writeln('Количество отрицательных целых чисел = ', k2-k1); 
end.

0 0

4 года назад

Сравнение файлов Первый файл на 1 мегабайт больше, чем второй файл. Второй файл на 3072 байта больше, чем третий файл. На скольк

Сергей Острецов

1 мегабайт=1024*1024 =1048576 байт.... дальше сам

0 0

3 года назад