Задание 1 Во Какие из приведённых утверждений верны? Выберите несколько из 4 вариантов ответа: 1) a % b = b // a 2) math.cos (1) = math.cos (1 + 2 * math.pi) 3) a % b = a - (a // b) * b 4) math.sin (1) = math.sin (1 + 180) Задание 2 Во Установите соответствие между функциями и их значениями, если x = 1.69. Укажите соответствие для всех 4 вариантов ответа: 1) 1 sqrt (x) 2) 1.69 abs (x) 3) 1.3 int (x) 4) 2 round (x) Задание 3 Во Функция abs (x) вернула значение 4. Укажите возможные значения x. Выберите несколько из 4 вариантов ответа: 1) 2 2) 4 3) -4 4) 16 Задание 4 Во Установите соответствие между данными и их типом? Укажите соответствие для всех 6 вариантов ответа: 1) int int (4 / 3) 2) float round (2.3) 2 / 2 abs (6 / 3) 6 % 4 / 2 3 // 2 Задание 5 Во Сопоставьте значения данных и их типы. Укажите соответствие для всех 6 вариантов ответа: 1) int -10 2) float 4 / 2 0.2e+01 3 + 2 0 2

Информатика

Ответить

Ответы

Ingakazakova

05.08.2022

Var
X,Y,K:integer;
E,p:real;
Begin
Write('Сколько яблок в наличии: ');ReadLn(X);
Write('Сколько человек: ');ReadLn(Y);
Write('Сколько долларов за одно яблоко: ');ReadLn(E);
Write('Сколько рублей за один доллар: ');ReadLn(p);
if X mod 5 <> 0 then K:=X+5-(X mod 5)
else K:=X;
While K/Y<1.66 do K:=K+5;
WriteLn('Требуемое количество яблок: ',K);
WriteLn('Столько яблок придётся докупить: ',K-X);
WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.');
End.

Пример:

Сколько яблок в наличии: 1
Сколько человек: 3
Сколько долларов за одно яблоко: 50
Сколько рублей за один доллар: 0.05
Требуемое количество яблок: 5
Столько яблок придётся докупить: 4
Стоимость докупленных яблок: 10.00 руб.

mantseva

05.08.2022

1 вариант через строку

var
n,a,k,sum,i,j: integer;
s: string;
begin
sum:=0;
write ('Введите количество чисел: ');
readln (n);
for i:=1 to n do begin
write ('Введите число: ');
readln (a);
Str(a,s);
k:=0;
for j:=1 to length(s) do
if s[j]='5' then k:=k+1;
if k=2 then sum:=sum+a;
end;
writeln ('Sum = ',sum);
end.

2 вариант через div и mod

var
n,a,x,k,sum,i: integer;
begin
sum:=0;
write ('Введите количество чисел: ');
readln (n);
for i:=1 to n do begin
write ('Введите число: ');
readln (a);
x:=abs(a);
k:=0;
while x>0 do begin
if x mod 10 =5 then k:=k+1;
x:=x div 10;
end;
if k=2 then sum:=sum+a;
end;
writeln ('Sum = ',sum);
end.

пример результата:

Введите количество чисел: 3
Введите число: 550001
Введите число: -550000
Введите число: 123456
Sum = 1

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Задание 1 Во Какие из приведённых утверждений верны? Выберите несколько из 4 вариантов ответа: 1) a % b = b // a 2) math.cos (1) = math.cos (1 + 2 * math.pi) 3) a % b = a - (a // b) * b 4) math.sin (1) = math.sin (1 + 180) Задание 2 Во Установите соответствие между функциями и их значениями, если x = 1.69. Укажите соответствие для всех 4 вариантов ответа: 1) 1 sqrt (x) 2) 1.69 abs (x) 3) 1.3 int (x) 4) 2 round (x) Задание 3 Во Функция abs (x) вернула значение 4. Укажите возможные значения x. Выберите несколько из 4 вариантов ответа: 1) 2 2) 4 3) -4 4) 16 Задание 4 Во Установите соответствие между данными и их типом? Укажите соответствие для всех 6 вариантов ответа: 1) int int (4 / 3) 2) float round (2.3) 2 / 2 abs (6 / 3) 6 % 4 / 2 3 // 2 Задание 5 Во Сопоставьте значения данных и их типы. Укажите соответствие для всех 6 вариантов ответа: 1) int -10 2) float 4 / 2 0.2e+01 3 + 2 0 2