Мне решить эти . контрольная работа №4 по теме < > 8 класс (босова) вариант 11. составьте линейную программу нахождения остатка и целой части от деления двух натуральных чисел,введённых с клавиатуры, если известно,что числа не превышают 5000. вывод ответа осуществить в 1 строку. числа не должны быть написаны слитно.замечание: известно, что можно вводить только натуральные числа.2. составьте программу, которая позволяет вводить (2 - решил полностью, 1 - решил с ошибками, 0 - не решил) за каждое этой контрольной работы. если их сумма больше 3,то вывести < > , иначе < > .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+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.