Program student;
var
ocenka:byte;
begin
writeln('vvedite ocenku');
readln(ocenka);
case ocenka of
1: writeln('ochen ploho!');
2: writeln('ploho');
3: writeln('udovletvoritelno');
4: writeln('horosho');
5: writeln('otlichno');
end;
end.
Есть такая программа Publisher. туда заходи и там много образцов газет. и просто туда текст вбиваешь. а если не получится то вот
Данные - это то, с чем работает программа. Программа- это набор команд, которые выполняют действия над данными
Var i:integer; n,sum:real;
Begin
Write('Введите 10чисел: ');
while (i<>10) do begin
readln(n);
sum:=sum+n;
i:=i+1;
end;
writeln('Сумма этих чисел - ',sum);
end.
Uses
Math;
...
MyNumber:=RandomRange(Start, Stop);//1 вариант
MyNumber:=Random(Stop)+Start;//2 вариант. Для него не нужен модуль <span>Math;
</span>Start - От
Stop - До