Program Prices;
const max : integer = 10;
var
price : real;
i : integer;
begin
{ С использованием цикла FOR }
writeln('Используем цикл FOR');
write('Введите стоимость 1-го кг конфет: ');
readln(price);
for i:=1 to max do
begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
end;
{ С использованием цикла REPEAT }
i:=1;
writeln;
writeln('Используем цикл REPEAT');
repeat
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
until(i>max);
{ С использованием цикла WHILE }
i:=1;
writeln;
writeln('Используем цикл WHILE');
while(i<=max) do begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
end;
end;
управляющий - управляемый
дирижёр - оркестр
наездник - лошадь
тренер - спортсмен
режиссёр - актёр
водитель - автобус
Чайник- нажать кнопку => нагреть до определенный температуры => отключиться => подать сигнал отключения
духовка установить таймер => отсчитать время => выключиться
===== PascalABC.NET =====
var a := ArrRandom(10, -100, 100);
a.Println.Where(p -> p < 0).Count.Println
end.
Задание 1 ответ 9
c:=trunc(61/5=12.2)=12
a:=(61 mod (12+1=13) ) =9
Ответ 9
Задание 2 там грамматические ошибки где var там ввод переменных через запятую и где write через w и где read там также ввод переменных через запятую
Задание 3
1 ввод +
2 ввод +