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