1)Написать диалоговую программку, в результате которой на экране появится диалог:- Привет!
1)Написать диалоговую программку, в итоге которой на экране появится диалог:
- Привет! Я компьютер, а как тебя зовут?
- Алёна
- Алёна, введи свои оценки по 3 предметам
- 4,4,4
- имя, твой средний балл 4
2Введя с клавиатуры 3-значное число (123), получить и вывести на экран новое число, поменяв местами разряды 10-ов и единиц.
Агата Магарова
язык какой?
Анна Флоринская
паскаль
Кынтиков
Павел
я мимо, извините)
Виталька Хартин
нужен код либо скомпилированный код в .exe?
Tentekov Jurok
что-то написал мутно...) я только могу exe файл сбросить
Лариса
щас сделаю
2 ответа
Марина Волошаненко
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
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
Anatolij Treshhenko
Сейчас тебе Алёна даст) Кхе, Кхе... Баллы за лучший ответ
Тоня
//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.
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.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов