Работаем в Pascal ABC 1. Найти количество цифр меньше 6 в целом x. Тест: 254904 ...

August 2022 1 30 Report

Работаем в Pascal ABC
1. Найти количество цифр меньше 6 в целом x.
Тест: 254904 - 5

2. Найти сумму первой и последней цифры в целом x.
Тест: 254904 - 6

3. Найти сумму самой большой и самой маленькой цифры в целом x
Тест: 254904 - 9

Answers & Comments

Segrif

Verified answer

1.

var x,s:integer;
begin
read(x);
s := 0;
while x > 0 do
begin
if x mod 10 < 6 then s := s + 1; {здесь была ошибка}
x := x div 10
end;
write(s)
end.

2.

var x,s:integer;
begin
read(x);
s := x mod 10;
while x > 10 do
x := x div 10;
write(x + s)
end.

3.

var x,a,b:integer;
begin
read(x);
a := x mod 10;
b := x mod 10;
while x > 0 do
    begin
    if x mod 10 > a then a := x mod 10;
    if x mod 10 < b then b := x mod 10;
    x := x div 10;
    end;
write(a + b)
end.

5 votes Thanks 2

Wani4kaa Спасибо огромное!!!

Answers & Comments

Verified answer

pascal abcnet vvoditsya massiv iz n celyh chisel pomenyat v nem mestami samoe bo

s2e4df5d0223786a753396e263a438efd2 76483

matematika 6 klass dlinu storony kvadrata uvelichili na 20 na skolko procentov

pascal abc v dvumernom chislovom massive raznomernosti nn poschitat kolichestvo e

tex chto ono oboznachaet mozhno li ego kak to privesti k primitivnym operaciyam

pascal abc zadacha s while for if na promezhutke ot a do b najti vse chisla i

rabotaem v pascal abcnet na promezhutke ot a do b najti vse chisla i ih koliches

рекомендуемые вопросы

Helpful Links

Helpful Social