!!!СРОЧНО!!! Пожалуйста помогите мне решить эти задачи. Контрольная работа №4

по теме <<Начала программирования>> 8 класс (Босова) Вариант 1

1. Составьте линейную программу нахождения остатка и целой части от деления двух натуральных чисел,введённых с клавиатуры, если известно,что числа не превышают 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.