Программирование в среде паскаль. Сделайте пожалуйста 2.19,2.14 и 4.23
Программирование в среде паскаль. Сделайте пожалуйста 2.19,2.14 и 4.23
Задать свой вопрос2 ответа
Полина
//2.19
var a,a1,a2,a3,a4:integer;
begin
readln(a);
a:=abs(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('S = ',a1+a2+a3+a4);
writeln('P = ',a1*a2*a3*a4);
end.
Пример:
4318
S = 16
P = 96
//2.14 (для натуральных чисел)
var a:integer;
begin
readln(a);
a:=a mod 100*10 + a div 100;
writeln('a = ',a);
end.
Пример:
431
a = 314
//4.23 а)
var a,a1,a2:integer;
begin
readln(a);
a:=abs(a);
a1:=a div 10;
a2:=a mod 10;
if a1 gt; a2 then writeln(a1,' gt; ',a2)
else if a1 lt; a2 then writeln(a1,' lt; ',a2)
else writeln(a1,' = ',a2)
end.
Пример:
43
4 gt; 3
//4.23 б)
var a,a1,a2:integer;
begin
readln(a);
a:=abs(a);
a1:=a div 10;
a2:=a mod 10;
if a1 = a2 then writeln(a1,' = ',a2)
else writeln(a1,' lt;gt; ',a2)
end.
Пример:
43
4 lt;gt; 3
var a,a1,a2,a3,a4:integer;
begin
readln(a);
a:=abs(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('S = ',a1+a2+a3+a4);
writeln('P = ',a1*a2*a3*a4);
end.
Пример:
4318
S = 16
P = 96
//2.14 (для натуральных чисел)
var a:integer;
begin
readln(a);
a:=a mod 100*10 + a div 100;
writeln('a = ',a);
end.
Пример:
431
a = 314
//4.23 а)
var a,a1,a2:integer;
begin
readln(a);
a:=abs(a);
a1:=a div 10;
a2:=a mod 10;
if a1 gt; a2 then writeln(a1,' gt; ',a2)
else if a1 lt; a2 then writeln(a1,' lt; ',a2)
else writeln(a1,' = ',a2)
end.
Пример:
43
4 gt; 3
//4.23 б)
var a,a1,a2:integer;
begin
readln(a);
a:=abs(a);
a1:=a div 10;
a2:=a mod 10;
if a1 = a2 then writeln(a1,' = ',a2)
else writeln(a1,' lt;gt; ',a2)
end.
Пример:
43
4 lt;gt; 3
Арина Масберг
Программы написаны на языке PascalABC.NET v3.3 (сборка 1549)
2.19
var
num, a, b, c, d: integer;
begin
readln(num); //Число
a := num div 1000; //1-ая цифра
b := num div 100 mod 10; //2-ая цифра
c := num div 10 mod 10; //Третья цифра
d := num mod 10; //Четвёртая цифра
writeln(a + b + c + d); //Сумма цифр
writeln(a * b * c * d) //Произведение цифр
end.
2.14
var
num: integer;
begin
readln(num); //Число
writeln(num mod 100 * 10 + num div 100) //Берём остаток от разделенья на 100, т. е. заключительные две цифры, умножаем на 10 и прибавляем первую цифру
end.
4.23
var
num: integer;
begin
readln(num); //Число
if num div 10 gt; num mod 10 then
writeln('Первая цифра больше')
else if num div 10 lt; num mod 10 then
writeln('2-ая цифра больше')
else
writeln('Числа схожи')
end.
2.19
var
num, a, b, c, d: integer;
begin
readln(num); //Число
a := num div 1000; //1-ая цифра
b := num div 100 mod 10; //2-ая цифра
c := num div 10 mod 10; //Третья цифра
d := num mod 10; //Четвёртая цифра
writeln(a + b + c + d); //Сумма цифр
writeln(a * b * c * d) //Произведение цифр
end.
2.14
var
num: integer;
begin
readln(num); //Число
writeln(num mod 100 * 10 + num div 100) //Берём остаток от разделенья на 100, т. е. заключительные две цифры, умножаем на 10 и прибавляем первую цифру
end.
4.23
var
num: integer;
begin
readln(num); //Число
if num div 10 gt; num mod 10 then
writeln('Первая цифра больше')
else if num div 10 lt; num mod 10 then
writeln('2-ая цифра больше')
else
writeln('Числа схожи')
end.
Диман Чернофисский
Окей, спасибо, буду иметь в виду.
Софья
Тогда что указывать? Довольно версии, или вообщем можно ничего не подписывать?
Олег Гуревин
Ок, спасибо огромное.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов