Program z20
строка 5 - пропущен ввод третьей стороны, должно быть:
readln(a,b,c)
строка 7 - должно быть:
if (a+b>c) and (b+c>a) and (a+c>B) then
Program z21;
uses crt;
var
a,b: real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
write('Введите число а '); readln(a);
write('Введите число b '); readln(b);
if a>b then
writeln('a>b Результат: ',a-5)
else
if a<b then
writeln('a<b Результат: ',b-5)
else
writeln('a=b Результат: ',b-5);
end.
Program z22;
uses crt;
const n = 100;
const m = 500;
var
sum,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
for i:=n to m do
sum:=sum+i;
writeln('Сумма чисел от ',n,' до ',m,' равна',sum);
end.
Program z23;
uses crt;
var
mas:array[1..3] of real;
k,i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
k:=0;
for i:=1 to 3 do
begin
write('Введите ',i,'-е число: '); readln(mas[i]);
if mas[i]=0 then k:=k+1;
end;
writeln('Количество чисел, равных 0: ',k);
end.
Program z24;
uses crt;
var
a,b,i,sum: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
write('Введите число A '); readln(a);
write('Введите число B '); readln(b);
sum:=0;
for i:=a to b do
if (i>0) and (i mod 4 = 0) then
sum:=sum+i;
writeln('Сумма целых положительных чисел, кратных 4, из интервала от ',a,' до ',b,', равна ',sum);
end.
Int get_lessons(int week){
if(week < 1 || week > 7) return 0; // Если ввели не номер дня недели
else if (week == 1) return 6;
else if (week == 2) return 6;
else if (week == 3) return 6;
else if (week == 4) return 6;
else if (week == 5) return 7;
else if (week == 6) return 0;
else return 0;
}
Процесс установки называется "установка ОС" или "загрузочная часть"
Проверка системы, подготовка жесткого диска, Копирование файлов. настройка конфигурации, пробный запуск ОС, окончательная настройка
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal; var y:=x*x+11; Writeln(y)
end.
Вообще это почта(5букв)
может не 10,а 5?????
