| tatiana | Дата: Четверг, 25 Фев 16, 13:14 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
| Напишите линейную программу, в результате выполнения которой в целочисленной переменной S получится перевернутое целое четырехзначное число k. Например: если k = 1357, то S = 7531.
|
| |
| |
| UAT | Дата: Вторник, 21 Мар 17, 11:17 | Сообщение # 2 |
 Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
| Задача : на нахождение возраста с использованием математического фокуса
Не знаю как добавить ответ на вопрос "Был ли у вас день рождение?"
program n_2;
var a:integer;
var Y,G:real;
var B,C: boolean;
begin
writeln('Нахождение вашего возраста');
Writeln('Первое действие');
Writeln('Выберите и запешите число от 1 до 10');
readln(a);
Y:=(a*2+5)*50;
Writeln('Второе действие');
Writeln('Было ли у вас день рождение в этом году ?');
Writeln('Если да то напишите B');
Writeln('Если нет то напишите C');
readln(;
B:=True;
if b=B then Y:=Y+1767
else Y:=Y+1766;
Writeln('Теперь напишите год своего рождения');
Readln(G);
Y:=Y-G;
Writeln('Число получившееся в ходе счёта равен',Y);
Writeln('Первая цифра равна тому что вы загадали в начале');
Writeln('Последние две равны вашему возрасту');
end.
|
| |
| |
