var a,b,c,d:integer;
begin
writeln('Вступительный балл');
readln(a);
writeln('1 экзамен ');
readln(b);
writeln('2 экзамен ');
readln(c);
writeln('3 экзамен ');
readln(d);
if a<(b+c+d) then
writeln('Ученик принят');
else
writeln('Ученик не принят');
end.
Треугольников 40
и 10 квадратов
Program code;
Var s: string;
begin
write('Введите код: ');
read(s);
if s='2145'
then write('molotok') else writeln('no');
end.
Пример:
Введите код: 2145
molotok
Процессор это как мозг, обработает информацию которая поступает в него и выводит её в другие устройства
220*0.3=66. 220*0.4=88. 220*0.5=110. 220*0.9=198