1)
цел a, b, c
алг
нач
ввод a,b,c
если mod(a+b,2)=0 то
вывод (a+b)/c
иначе
вывод (a+b)*c
все
кон

2)
цел a,d1,d2
алг
нач
ввод a
если (a>9) и (a<99) то
d1:=div(a,10);
d2:=mod(a,10);
вывод d1*d2
вывод' '
вывод d1+d2
вывод' '
вывод d1-d2
иначе
вывод 'ошибка'
все
кон

0 0

4 года назад

Файл размером 2500 кб передан по сети за 40 секунд.Сколько секунд потребуется для передачи файла размером 2750 кб?

Orerdy

Если это задача то за 44 секунды. 
Если практика, то скорость нестабильная, так что может и за 38 а может и за 60.

0 0

4 года назад

Написать программу выводящую на экран значение переменной D=a/b,учитывая,что если делитель равен 0,то решений нет (a и b вводятс

Ева Таран

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (a, b):= ReadReal2('a, b=');
if (b <> 0)then Writeln('D = ', a/b)
else Writeln('No Solution Exist');
end.

0 0

4 года назад

Найти сумму натуральных чисел от 1 до 50. Программу написать на языке паскаль, по теме "вложенность цикла".

Константикос

Program random_;
uses crt;
var
b,i:word;
begin
b:=0;
for i:=1 to 50 do b:=b+i;
writeln(b);
end.

0 0

4 года назад