Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.08.2017 17:32
- Информатика
- remove_red_eye 9888
- thumb_up 11
Ответы и объяснения 2
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 > a2 then writeln(a1,' > ',a2)
else if a1 < a2 then writeln(a1,' < ',a2)
else writeln(a1,' = ',a2)
end.
Пример:
43
4 > 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,' ',a2)
end.
Пример:
43
4 3
- 28.08.2017 04:52
- thumb_up 25
2.19
var
num, a, b, c, d: integer;
begin
readln(num); //Число
a := num div 1000; //Первая цифра
b := num div 100 mod 10; //Вторая цифра
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 > num mod 10 then
writeln('Первая цифра больше')
else if num div 10 < num mod 10 then
writeln('Вторая цифра больше')
else
writeln('Цифры одинаковы')
end.
- 29.08.2017 18:31
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.