Мне решить эти . контрольная работа №4 по теме < > 8 класс (босова) вариант 11. составьте линейную программу нахождения остатка и целой части от деления двух натуральных чисел,введённых с клавиатуры, если известно,что числа не превышают 5000. вывод ответа осуществить в 1 строку. числа не должны быть написаны слитно.замечание: известно, что можно вводить только натуральные числа.2. составьте программу, которая позволяет вводить (2 - решил полностью, 1 - решил с ошибками, 0 - не решил) за каждое этой контрольной работы. если их сумма больше 3,то вывести < > , иначе < > .3. составьте программу, которая считает, сколько натуральных чисел до 50 кратны 3.
ayskamaska
2
20.05.2019 17:31
1
Другие вопросы по теме Информатика
irkorwp0dj0n
24.09.2019 11:10
dianasobol
24.08.2019 09:50
nastyaangel13
08.04.2020 11:17
smokenmyr
08.04.2020 11:17
валя360
12.07.2019 04:30
Bars1995
12.07.2019 04:30
КеламадинНазгуль
10.03.2021 20:11
алишер126
10.03.2021 20:12
RUMBANITTA
10.03.2021 20:12
Популярные вопросы
- Какое количество теплоты необходимо для того, чтобы расплавить 400...
2 - Выполните умножение: 1)5/16*4/5*9/25*5/9 2)19/25*40/57*5/36*9/16...
3 - Добрый ночи. ребенок забыл учебник в школе. нужно сделать работу...
2 - Рассчитайте массу кремниевой кислоты (h2sio3) если ее взяли 2кмоль...
2 - Іть написати твір -роздум на тему не все те отрута, що неприємне...
3 - Всанатории отдыхало 46 женщин,а мужчин - на 7 меньше. сколько всего...
1 - Составьте 10 вопросов про свою комнату на...
3 - Составить и записать общий план рассказа о редком растении или животном...
2 - Спримерами для эссе.раздел .цитата: меняются рынки,меняются вкусы,поэтому...
2 - Известно, что скорость моторной лодки по течению х км/ч, а против...
3
1)
Var a,b:integer;
Begin
Read(a,b);
Write((a mod b)+' '+(a div b));
End.
2)
Var a,b,c:integer;
Begin
Read(a,b,c);
If a+b+c>3 then write('<<Зачёт>>')
Else write('<<Незачёт>>');
End.
3)
Var i,count:integer;
Begin
For i:=1 to 50 do
If (i mod 3) =0 then
Count:=count +1;
Write(count);
End.