Срочно! 1Дано натур. число. Проверить, является ли число двузначным у которого 1 и 2 цифры одинаковые. 2.Даны 3 числа. Удвоить те из
5-9 класс
|
них,которые нечетны.Остальные отсавить без изменения.
3.ВВедите коль-во учащихся в группе по инфе и четвертную отметку каждого учащегося. Выч. средний бал успеваемости по инфе в группе за четверь.
4.НАйти сумму целых положительных чисел, больших 20, меньших 100 и кратных 3.
5.Вычислить наименьшее общее кратное 2 чисел (hok (a,b)). Для вычесления воспользуйтесь ФОРМУЛОЙ a*b=HOД*HOK
1.
var a:longint;
beginread(a);
if (a mod 10) = ((a div 10) mod 10) then
writeln('YES') else
writeln('NO');
end.
2.
var a,b,c:longint;
begin
read(a,b,c);
if (a mod 2) = 1 then
a:=a*2;
if (b mod 2) = 1 then
b:=b*2;
if (c mod 2) = 1 then
c:=c*2;
end.
Другие вопросы из категории
Срочно!!! Пожалуйста!
Windows-1251.Укажите, на сколько Кбайт уменьшился объем файла.
Читайте также
Задача: Дано одно целое число, проверить, является ли оно простым. (делится на 1 и на само себя).
Помогите пожалуйста)