Вот вам программа, пробовала компилировать и запускать на free-pascal, на всем остальном тоже должно пойти
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.
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses graphABC;
const
kegl = 40;
var
space, line: integer;
procedure M(cx, cy: integer);
begin
MoveTo(cx, cy);
LineTo(cx, cy - kegl );
LineTo(cx + kegl div 2, cy);
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy);
end;
procedure I(cx, cy: integer);
begin
MoveTo(cx, cy - kegl);
LineTo(cx, cy );
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy);
end;
procedure R(cx, cy: integer);
begin
MoveTo(cx, cy);
LineTo(cx, cy - kegl);
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy - kegl div 2);
LineTo(cx, cy - kegl div 2);
end;
begin
space := kegl div 2;
SetWindowSize(4 * space + 3 * kegl, 4 * space + 3 * kegl );
line := space + kegl;
M(space, line );
I(2 * space + kegl, line );
R(3 * space + 2 * kegl, line );
line := 2 * space + 2 * kegl;
R(space, line );
I(2 * space + kegl, line );
M(3 * space + 2 * kegl, line );
line := 3 * space + 3 * kegl;
M(space, line );
I(2 * space + kegl, line );
M(3 * space + 2 * kegl, line );
end.
#include <iostream>
using namespace std;
int main()
{
int x;
cout <<"Введите число: ";
cin >>x;
for(int i=2; i<=x; ++i)
if(x%i==0)
{
cout <<"Наименьший делитель равен ";
cout <<i <<endl;
break;
}
return 0;
}
