program HelloWorld;
var i: integer;
var a,b,s: double; //a - выручка за день, b - план за день, s - зарплата всего
begin
s:=0;
for i:= 1 to 28 do
begin
write('День '); write(i); writeln(': ');
writeln('Введите значение ежедневной выручки:');
readln(a);
writeln('Введите значение ежедневного плана:');
readln(b);
if a>b then
begin
a:= a+a*0.2;
end
else a:= 1500;
s:= s + a;
end;
write('Зарплата составила: ');
writeln(s:15:2);
end.
2.
program HelloWorld;
var i: integer;
var a,s: double; //s - итого в процентах, a - еда в граммах
begin
s:=0;
for i:= 1 to 28 do
begin
write('День '); write(i); writeln(': ');
writeln('Укажите сколько грамм съедено:');
readln(a);
if a>100 then
begin
s:= s+3;
end
else s:= s+2;
end;
write('Подрос на (%): ');
writeln(s:15:2);
end.
3.program HelloWorld;
var i: integer;
var a,b,s: double; //a - время в воде в день, b - время на суше в день, s - пройденный путь
begin
s:=0;
for i:= 1 to 7 do
begin
write('День '); write(i); writeln(': ');
writeln('Укажите время в воде:');
readln(a);
writeln('Укажите время на суше:');
readln(b);
s:= s+(a*80 + b*20);
end;
write('Пройденный путь: ');
writeln(s:15:2);
end.
1)
2) 3 единицы
3) 24D
4) 6
5) 2 раза
Объяснение:
2)
3) Переводим число
в 16-ичную систему счисления, для этого делим его на 16 и запоминаем остаток. Затем результат деления также делим на 16 и запоминаем остаток. Повторяем эти действия до тех пор, пока частное не будет равно 0:
589 : 16 = 36, остаток 13
36 : 16 = 2, остаток 4
2 : 16 = 0, остаток 2
Затем записываем остатки от деления в обратном порядке: 2 4 13
Заменяем числа больше 9 на буквы
(10 - A; 11 - B; 12 - C; 13 - D; 14 - E; 15 - F)
Результат:
4)
5) Посчитаем от 1 до 10 в 6-ичной системе счисления:
1 2 3 4 5 10 11 12 13 14