Ответ:
Program p;
var a,s:integer;
Begin
Readln(a, s);
While s <>0 do begin
s := s mod 10;
if (s = a) then begin
writeln('yes');
s :=0;
end
else writeln('no');
if ( a < 10) then writeln('no');
end;
end.
Объяснение:
А) Объект: человек;
Величина: цвет волос;
Значение: ражий.
б) Объект: арбуз;
Величина: вес;
Значение: семь килограмм.
в) Объект: чашка;
Величина: материал;
Значение: фарфор.
г) Объект: монитор;
Величина: диагональ;
Значение: семнадцать дюймов.
1. Переведём к одним и тем же единицам
100 МБит = 100/8 = 12,5 МБайт
2.
12,5/1,39 = 8,9928
3. Округлим вверх
<span>8,9928 -> 9 шт
Это ответ
</span>
Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>