М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Kristgame
Kristgame
06.06.2021 06:47 •  Информатика

ЯЗЫК ПАСКАЛЬ

ПАША И КУБИКИ
У маленького Паши было 5 кубиков с цифрами от 1 до 5 на каждом кубике. В не самый прекрасный день Паша обнаружил, что один из кубиков потерялся.
Паше понять, кубик с какой цифрой потерян, зная цифры на оставшихся кубиках. Формат входных данных: Программе на вход подаются 4 числа-цифры на оставшихся кубиках.
Формат выходных данных: Программа должна вывести одно число -цифру на кубике, который потерялся.​

👇
Ответ:
sahechka111
sahechka111
06.06.2021

program Chernovik;

var a,b,c,d,i: integer;

begin

read(a,b,c,d);

for i:=1 to 5 do

if (i<>a) and (i<>b) and (i<>c) and (i<>d) then write(i)

end.

Объяснение:

Вводим числа

В цикле проверяем условие, если переменная цикла не равна ни одному из введенных чисел, то выводим её на экран

4,7(46 оценок)
Открыть все ответы
Ответ:
ДианаDi1111
ДианаDi1111
06.06.2021
Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
 begin
 if (a mod 2 = 0)and(a<0) then k1:=k1+1;
 if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
 readln(a);
 end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
 then writeln('среднее арифметическое нечётных чисел = ',s/k2)
 else writeln('в последовательности нет нечётных чисел');
end.

Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45
4,5(56 оценок)
Ответ:
nastabugrim
nastabugrim
06.06.2021
Var  x,y:integer; 
begin
writeln('Программа определения местонахождения точки');
writeln('Введите координаты точки');
readln(x,y); //вводим координаты точки 
if (x>=0) and (y>=0) then writeln('1 четверть'); //точка принадлежит 1 ч. если обе координаты положительны (это из геометрии)
if (x<0) and (y>=0) then writeln('2 четверть'); //точка принадлежит 2 ч. если х<0, а y неотрицателен (это из геометрии)
if (x<0) and (y<0) then writeln('3 четверть'); //точка принадлежит 3 ч. если обе координаты отрицательны (это из геометрии)
if (x>=0) and (y<0) then writeln('4 четверть'); //точка принадлежит 4 ч. если х неотрицателен, а y<0 (это из геометрии)
end.  
4,5(77 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ