!!!Безотлагательно!!! Пожалуйста помогите мне решить эти задачки. Контрольная работа 4 по
!!!Безотлагательно!!! Пожалуйста помогите мне решить эти задачи. Контрольная работа 4
по теме lt;lt;Начала программированияgt;gt; 8 класс (Босова) Вариант 1
1. Составьте линейную программку нахождения остатка и целой доли от разделенья 2-ух естественных чисел,введённых с клавиатуры, если знаменито,что числа не превосходят 5000. Вывод ответа осуществить в 1 строку. Числа не обязаны быть написаны слитно.
Замечание:Знаменито, что можно вводить только естественные числа.
2. Составьте программу, которая дозволяет вводить баллы (2 - решил вполне, 1 - решил с ошибками, 0 - не решил) за каждое задание этой контрольной работы. Если их сумма больше 3,то вывести lt;lt;Зачётgt;gt;, по другому lt;lt;Незачётgt;gt;.
3. Составьте программку, которая считает, сколько естественных чисел до 50 кратны 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+cgt;3 then write('lt;lt;Зачётgt;gt;')
Else write('lt;lt;Незачётgt;gt;');
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
География.
Литература.
Разные вопросы.
Математика.
Разные вопросы.
Литература.
Литература.
Разные вопросы.
Кыргыз тили.