В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
andriu12252
andriu12252
26.04.2020 01:36 •  Информатика

1)написать диалоговую программу, в результате которой на экране появится диалог: - ! я компьютер, а как тебя зовут? - алёна - алёна, введи свои оценки по 3 предметам - 4,4,4 - имя, твой средний 4 2введя с клавиатуры 3-значное число (123), получить и вывести на экран новое число, поменяв местами разряды десятков и единиц.

Показать ответ
Ответ:
Саша77777777
Саша77777777
27.09.2020 21:14
1.
var s:string; m1,m2,m3:integer;
begin
writeln('- Привет! Я компьютер, а как тебя зовут?');
write('- '); readln(s);
writeln('- ',s,', введи свои оценки по 3 предметам');
write('- '); readln(m1,m2,m3);
writeln('- ',s,', твой средний ', (m1+m2+m3)/3);
end.

Пример:
- Привет! Я компьютер, а как тебя зовут?
- Алёна
- Алёна, введи свои оценки по 3 предметам
- 4 4 4
- Алёна, твой средний 4

2.
var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.

Пример:
a = 123
b = 132
0,0(0 оценок)
Ответ:
захар182
захар182
27.09.2020 21:14
//1)

Var
 s:string;
 o1,o2,o3:integer;
begin
 writeln('Привет! Я компьютер, а как тебя зовут?');readln(s);
 writeln(s,', введи свои оценки по 3 предметам');readln(o1,o2,o3);
 write(s,', твой средний ',(o1+o2+o3)/3);
end.

//2)
Var
 s:string;
 c:char;
begin
 readln(s);
 c:=s[3];
 s[3]:=s[2];
 s[2]:=c;
 writeln(s);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота