ПОМОГИТЕ ПОЖАЛУЙСТА!!!!! Задумать день недели (ввести с клавиатуры порядковый номер от 1 до 7). Удвоить задуманный номер. Увеличить полученное число на 5. Умножить на 5, умножить на 10. Вывести результат. Написать программу, которая по результату работы предыдущей программы отгадывает, какое число было задумано. PASCALabc
More Questions From This User See All
Answers & Comments
var a, b:real;
begin
readln(a);
b:=((a/50)-5)/2;
writeln('Задуманное число - ',b);
end.
{PascalABC}
Program Puzzle;
var
R,day:integer;
week:array[1..7] of string;
i:integer;
s:string;
begin
week[7]:='Воскресенье';
week[6]:='Суббота';
week[5]:='Пятница';
week[4]:='Четверг';
week[3]:='Среда';
week[2]:='Вторник';
week[1]:='Понедельник';
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(200) end;
writeln; writeln('ОК, Задумайте день недели (номер от 1 до 7)');
writeln('Удвойте этот номер');
writeln('Увеличьте результат на 5');
writeln('Умножьте полученное число на 5');
writeln('Теперь то, что получилось, умножьте на 10');
writeln('Введите полученный результат'); readln(R);
day:= round((R-250)/100);
writeln('**************************************');
case day of
1..7: writeln(' Вы задумали ',week[day]);
else writeln('Что-то пошло не так... Либо вы задумали не число между 1 и 7, либо ошиблись в рассчётах')
end;
writeln('**************************************');
end.