Задать вопрос
30 апреля, 01:03

Здравствуйте, помогите написать програмку в паскале.

-Ввести два трехзначных числа. Если последняя цифра первого числа равна первой цифре второго числа, то утроить каждое число, иначе - найти частное чисел.

+3
Ответы (1)
  1. 30 апреля, 04:57
    -1
    Var numb1, numb2:integer;

    begin

    readln (numb1, numb2) ;

    if (numb1 mod 10 = numb2 div 100) then

    writeln (numb1*3,' ', numb2*3)

    else

    writeln (numb1/numb2) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Здравствуйте, помогите написать програмку в паскале. -Ввести два трехзначных числа. Если последняя цифра первого числа равна первой цифре ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) Ввести число. Если оно неотрицательно (больше 0), вычесть из него 10, иначе - прибавить к нему 10 2) Ввести 2 числа.
Ответы (1)
Напишите на языке C++! 1) Ввести число. Если оно неотрицательно (больше 0), вычесть из него 10, иначе - прибавить к нему 10 2) Ввести 2 числа.
Ответы (1)
1. Переведите на язык программирования: а) ввести А и С увеличить А в 10 раз уменьшить С в 20 раз напечатать модуль разности А и С б) ввести А и С если А>С, то увеличить А в 5 раз иначе уменьшить С в 2 раза напечатать значения А и С конец в) ввести
Ответы (1)
Помогите написать в паскале! Ввести три целых числа x, y, z. Если хотя бы одно из них четное, то первому четному числу присвоить значение произведения этих чисел.
Ответы (1)
Язык Pascal! Дан алгоритм: Подпрограмма 1) ввести натуральное число M, N 2) если M=N перейти к п. 5, иначе к следующему пункту 3) если M>N, то M:=M-N; иначе N:=N-M 4) перейти к п.
Ответы (1)