Var a: integer; begin read(a); while(a < > 0) do begin write(a mod 10); a : = a div 10; end; end.
Ответ дал: Гость
125чел. это 5частей из 7
? чел. это 2 части из 7
125 чел. : 5 частей = (100+25): 5=100: 5+25: 5=20+5=25чел. это 1 часть из 7
25чел. х 2части=50 чел. , которые пришли на финиш после 1 часа
ответ: 50 чел.
Ответ дал: Гость
var a,b,i,s: integer;
begin
writeln('введите 2 числа');
readln(a); readln(b);
s: =0;
if a< b then
for i: =a to b do
begin
if i mod 2 = 0 then
s: =s+1;
end;
if a> b then
for i: =b to a do
begin
if i mod 2 = 0 then
s: =s+1;
end;
writeln(s)
end.
Ответ дал: Гость
египтяне не писали гласных. египетский язык относится к группам языков, где корень слова состоит из согласных, гласные не вписываются. использовались три вида знаков: словесные (один иероглиф - одно слово), фонетических (сродни сорвеменному алфавиту), детерминативов (иероглиф в конце слова изменял его смысл).
Популярные вопросы