3 задание.,,,,, ,,,,,,,
ArtemKrapitski [14]
Ответ 2. Задание вроде как не школьное. А скорее всего из дискретной математики первого курса.
Рассмотрите числа в каждом ряду, определите какое число "лишнее" а) 2,3,6,7,11 б)18,12,3,29,45,28 в)1,2,3,5,6,7
TheMrDidenko [3.8K]
<span>ответ:а)6 ,б)28 в)6. вроде так</span>
Uses crt; (Подключение внешних файлов)
Var
ves: real;
m: real;
Begin
clrscr;
write('ves=');
read(ves);
m: = ves * 0.65;
writeln ('Масса молекул кислорода', m:2:1, 'кг.');
readkey;
End.
Var
mas:array[1..10]of integer;
i:integer;
Begin
write('Введите 10чисел: ');
for i:=1 to 10 do readln(mas[i]);
write('Четными являются: ');
for i:=1 to 10 do<span> if (mas[i] mod 2 = 0) then write(mas[i],' ');
</span>End.
Маша - бутерброд с сыром, картофельные чипсы, лимонад, молочный коктейль, луковые чипсы
Аня - Лимонад, молочный коктейль, луковые чипсы, бутерброд с котлетой
Саша - шоколадное печенье, лимонад, молочный коктейль, луковые чипсы, бутерброд с котлетой
Кирилл - молочный коктейль
Егор - Картофельные чипсы, лимонад, молочный коктейль, луковые чипсы
Мила - молочный коктейль, луковые чипсы
Но лучше ещё раз перепроверь