1) фигура
2)
3) Алгоритм
6
7)схема
8) компьютер
Var
a,i,sum : integer;
begin
for i:=1 to 10 do begin
read(a);
if (a>10) and (a<50) then sum:=sum +a;
end;
write(sum);
end.
1. Да, в общем случае...
2. Временной интервал при не превышении которого 2 щелчка засчитываются как даблклик
3. Клавиши-модификаторы
4. стрелочки 4 кнопки и 4 кнопки на малой цифр. клавиатуре
5. все кроме функциональных, да и вообще зависит от текстового редактора
Первый вариант:
Var
A:real;
k:integer;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.')
else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.')
End.
Var k:integer;
S,A:real;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then S:=k*A
else S:=A*((k-50)*1.2+50);
WriteLn('Заработок продавца: ',S:0:2,' руб.');
End.
Пример работы программы:
Стоимость одной газеты: 30.15
Количество газет: 200
Заработок продавца: 6934.50 руб.