• Вопрос по информатике:

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

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

    1. Составьте линейную программу нахождения остатка и целой части от деления двух натуральных чисел,введённых с клавиатуры, если известно,что числа не превышают 5000. Вывод ответа осуществить в 1 строку. Числа не должны быть написаны слитно.

    Замечание:Известно, что можно вводить только натуральные числа.
    2. Составьте программу, которая позволяет вводить баллы (2 - решил полностью, 1 - решил с ошибками, 0 - не решил) за каждое задание этой контрольной работы. Если их сумма больше 3,то вывести <<Зачёт>>, иначе <<Незачёт>>.

    3. Составьте программу, которая считает, сколько натуральных чисел до 50 кратны 3.

    • Автор:

      jordon

  • Ответ:

    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.

    • Отвечал:

      fun dipfkxa
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска