Здравствуйте, помогите написать програмку в паскале.
10-11 класс
|
-Ввести два трехзначных числа. Если последняя цифра первого числа равна первой цифре второго числа, то утроить каждое число, иначе – найти частное чисел.
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.
Другие вопросы из категории
10 класса. как это сделать?????
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
================================================================
В одной берляндской школе появился новый ученик Вася, который очень сильно любил химию. К сожалению для учителя химии, Вася принебрегал техникой безопасности и любил смешивать все реагенты подряд. В кабинете химии находится n реагентов. Каждый реагент характеризуется целым числом - своей опасностью. При смешивании реагентов действовали такиме правилами:
смешивать можно только 2 реагента;
при смешивании реагентов, старые реагенты исчезали и появлялся новый реагент, опасность которого равнялась среднему арифметическому старых.
Известно, что Вася собирается смешивать реагенты до тех пор, пока не останется 1 реагент. Помогите учителю химии определить максимально возможную опасность окончательного реагента.
Задана последовательность целых чисел,количество которых не превосходит 100.Требуется определить за один проход элемент с максимальным значением,а также число его повторений в последовательности.