М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
maksytova09
maksytova09
23.01.2022 08:30 •  Информатика

Дано: writeln (s:6:2);
Если =114,35699, то на экране появится...
, УМОЛЯЮ

👇
Ответ:
К1а2т3я456
К1а2т3я456
23.01.2022

Ну вообще ошибка будет, в Паскале насколько я помню вещественные числа через точку пишутся, ну это ладно, забудем про это.

Тогда программа выведет число 114.36, на конце 36 потому что сработало округление до сотых.

4,4(6 оценок)
Открыть все ответы
Ответ:
zakergaevak
zakergaevak
23.01.2022
if5                                                      

program raf105;

var a,b,c,po,ot: integer;

begin

write('Введите 3 числа: ');

readln(a,b,c);

if a > 0

 then po+= 1;

if a < 0

 then ot+= 1;

if b > 0

 then po+= 1;

if b < 0

 then ot+= 1;

if c > 0

 then po+= 1;

if c < 0

 then ot+= 1;

writeln('Количество положительных чисел: ',po);

writeln('Количество отрицательных чисел: ',ot);

end.

if6                                                      

program raf105;

var a,b: real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a > b

 then writeln(a)

 else writeln(b);

end.

if7                                                      

program raf105;

var a,b: real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a < b

 then writeln('1')

 else writeln('2');

end.

Язык PascalABC 3.4.2
4,7(69 оценок)
Ответ:
yusulimanov00
yusulimanov00
23.01.2022
а.                                              

program raf105;

var abcd,a,b,c,d,sum: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

sum:= a+b+c+d;

writeln('Сумма цифр: ',sum);

end.

в.                                              

program raf105;

var abcd,a,b,c,d: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

abcd:= a*1000 + c*100 + b*10 + d;

writeln('Вывод: ',abcd);

end.

г.                                              

program raf105;

var abcd,a,b,c,d: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

abcd:= c*1000 + d*100 + a*10 + b;

writeln('Вывод: ',abcd);

end.

                                              PascalABC 3.4.2
4,4(30 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ