Помогите решить задачи по информатике!!!Даю за ответ 15 балов!Задачи по программе Паскаль!!!
10-11 класс
|
1)
var
a,b,c,d,e:Integer;
begin
Writeln('Vvedite tri chisla cherez probel');
Readln(a,b,c);
d:=0;
e:=0;
if a<0 then
d:=d+1
else
begin
e:=e+1;
end;
if b<0 then
d:=d+1
else
begin
e:=e+1;
end;
if c<0 then
d:=d+1
else
begin
e:=e+1;
end;
Writeln('Kolichestvo onricatelnih chisel: ',d);
Writeln('Kolichestvo polojitelnih chisel: ',e);
Readln;
end.
2)
Другие вопросы из категории
пробежит спортсмен за 7 дней? Составить программу в паскале помощью цикла repeat.
на чашечных весах без гирь, чтобы найти фальшивую монету?
в одномерном массиве все отрицательные элементы заменить модулем, а положительные заменить числом 888
на один уровень вверх, затем спустился на один уровень вниз в каталог Зоология, затем вновь
поднялся на один уровень вверх и после спустился в каталог Анатомия. Запишите полный путь
каталога, в котором оказался пользователь.
1) С:\Школа\Биология\Зоология
2) С:\Школа\Анатомия
3) С:\Школа\Биология\Анатомия
4) С:\Зоология
Читайте также
ько информации несет свод законов племени, если в нем 12 строк и в каждой строке по 20 символов?
2. количество нулевых элементов.