program Hello;
var i:integer;
begin
write('введите целое число от 1 до 11: ');
readln(i);
writeln('**********************************');
case i of
'1' : WriteLn('Привет, первоклассник!!!');
'2' : WriteLn('Привет, второклассник!!!');
'3' : WriteLn('Привет, третьеклассник!!!');
'4' : WriteLn('Привет, четвероклассник!!!');
'5' : WriteLn('Привет, пятиклассник!!!');
'6' : WriteLn('Привет, шестиклассник!!!');
'7' : WriteLn('Привет, семиклассник!!!');
'8' : WriteLn('Привет, восьмиклассник!!!');
'9' : WriteLn('Привет, девятикласссник!!!');
'10' : WriteLn('Привет, десятиклассник!!!');
'11' : WriteLn('Привет, одиннадцатиклассник!!!');
else writeln('вы должны ввести число от 1 до 11')
end;
writeln('**********************************');
end.
program Phone;
var day:integer; time:real; week:array[1..7] of string;
begin
week[7]:='Воскресенье';
week[6]:='Суббота';
week[5]:='Пятница';
week[4]:='Четверг';
week[3]:='Среда';
week[2]:='Вторник';
week[1]:='Понедельник';
write('введите длительность разговора в минутах ');
readln(time);
write('введите номер дня недели ');
readln(day);
writeln('***** alphaeus is thinking... *****');
case day of
'1'..'5':
begin
writeln(week[day]);
writeln('Сумма без скидки - ', 2.3*time);
writeln('Сумма скидкой - ', 0.8*2.3*time);
writeln('Скидка не предоставляется');
end;
'6','7':
begin
writeln(week[day]);
writeln('Сумма без скидки - ', 2.3*time);
writeln('Сумма скидкой - ', 0.8*2.3*time);
writeln('Вам предоставлена скидка!');
end;
else writeln('вы ввели неправильный номер дня недели')
end;
writeln'************************************');
end.
Ща..самый крайний слева мудрунчик справа от него гануся потом олесь и крайний справа элзик
1.
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) Or ((a<0) and (b<0))
writeln('У обоих чисел одинаковые знаки')
else
writeln('У чисел разные знаки') ;
<span>end.
2.
var a,b:integer;
begin
readln(a);
readln(b);
if (a mod 2=0) And (b mod 2=0) then
writeln('Высказывание истинно')
else
writeln('Высказывание ложно')
<span>end.</span></span>
1)для работы .2)из системного, блока, мыша, монитора и клавиатуры 3) с некоторыми программами и инструмент для создания новых идей 4)инструмент 5)больше 300 рублей (в моём стране больше 100 манат)