tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Решить : даны числа n1,
Решить : даны числа n1, n2, n3, n4. те числа которые являются положительными, заменить нулями. (язык программирования pascal).
6lackk
3 19.06.2019 01:20
4
Ответы
leksios
02.10.2020 05:04
Var n1,n2,n3,n4:real;
begin
writeln('Введите n1, n2, n3, n4');
readln(n1,n2,n3,n4);
if n1>0 then n1:=0;
if n2>0 then n2:=0;
if n3>0 then n3:=0;
if n4>0 then n4:=0;
writeln(' n1= ', n1, ' n2= ', n2, ' n3= ', n3, ' n4= ', n4);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Ромашка242526
21.08.2019 18:10
Для программирования исполнителя используется алгоритмический язык. вася написал программу на этом языке. вот ее фрагмент: sum: =0 raz: =1 нц пока chislo 0 cifra: = mod(chislo; 10)...
Cegou22
21.08.2019 18:10
Запишите значение переменной y, полученное в результате работы следующей программы. текст программы на трёх языках программирования. var y,i: integer; begin y : = 0; for i : = 1...
узбек2004
20.04.2020 02:32
Дано служебное слово языка Паскаль: or. Значение служебного слова варианты ветвление неизвестная или...
savitar228
20.04.2020 02:47
Сколько бит памяти займёт слово сканер БОЖЕ У МЕНЯ НИЧЕГО СОВСЕМ НЕ ПОЛУЧАЕТСЯ ДОБРЫЕ ЛЮДИ НУ...
krylovadashenk
20.04.2020 02:47
С++ заполнить двумерный массив в соответствии с образцом напишите программу...
gesse99
20.04.2020 03:03
С++ напишите программу которая заполняет матрицу случайными числами...
dhdndbrb
15.09.2019 16:40
Вычислите сумму ряда s=sin(1)+sin(2)++ sin(n),для n,введенного с клавиатуры...
ученик22826
09.09.2019 07:50
1) расположите числа в порядке возрастания: 374_8 ; 110010_2 ; 300_10 2) выполнить перевод чисел в указанные системы счисления: a) 249_10 x_2 б) 781_10 x_8 в) 149_10 x_9 г) 1011101_2...
НАСТЁНАМИЛАЯ12012007
09.09.2019 07:50
1) расположите числа в порядке возрастания: 374_8 ; 110010_2 ; 300_10 2) выполнить перевод чисел в указанные системы счисления: a) 249_10 x_2 б) 781_10 x_8 в) 149_10 x_9 г) 1011101_2...
Dimas1694
09.09.2019 07:50
Чому відновлення даних можливо після форматування? плі...
Популярные вопросы
Что такое засуха, ураган, суховей?...
3
Почему засуха – это явление, происходящее на территориях с достаточным увлажнением?...
1
Какой тип погоды описан в следующих строках А.С. Пушкина: «Мороз и солнце; день...
2
После прохождения какого из двух видов фронтов наступает хорошая погода? Почему?...
2
Суммарной солнечной радиацией называют количество солнечной энергии, которое:...
3
Моря каких океанов омывают берега нашей страны?...
3
Почему мы некогда не слышим о засухах в пустыне?...
3
Какое море у берегов России самое глубокое, а какое самое мелководное?...
1
Какие существуют виды морей? Какие районы морей наиболее богаты жизнью?...
3
Какую угрозу представляют смерчи?...
1
begin
writeln('Введите n1, n2, n3, n4');
readln(n1,n2,n3,n4);
if n1>0 then n1:=0;
if n2>0 then n2:=0;
if n3>0 then n3:=0;
if n4>0 then n4:=0;
writeln(' n1= ', n1, ' n2= ', n2, ' n3= ', n3, ' n4= ', n4);
end.