// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый.
//Пакетов может быть неограниченное количество. Сколько гречи будет в
//последнем заполненном пакете?
var x,a : longword;
begin
writeln ('Введите общую массу гречи, в граммах');
readln (x);
writeln ('Введите массу насыпаемой в пакет гречи, в граммах');
readln (a);
writeln ('полных пакетов будет ',(x div a));
if (x mod a)=0 then writeln ('В последнем насыпанном пакете будет ',a,' грамм гречи')
else writeln ('В последнем насыпанном пакете будет ',(x mod a),' грамм гречи');
<span>end.</span>
Белов Георгий,
Суворов Дмитрий,
Серёгин Евгений,
Лоскутов Юлий,
Серегина Наташа,
Суворова Евгения.
---------------------------------------------
Решение:
У 2-ой девушки имя как у Серегина
Только 2 имени могут быть как мужским, так и женским - Юлий и Евгений
Серегин не может быть Юлием, т.к. играет не в теннис, а в шахматы, значит Серегин - Евгений, а 2-я девушка - Евгения.
Наташа была замужем за Евгением, значит можно предположить, что она носит его фамилию => Наташа - Серегина.
Суворов не Евгений (уже занято), не Юлий, т.к. играет в шахматы, а не в теннис, и не Георгий, т.к. из Москвы, а не из Саратова => Суворов - Дмитрий. => 2-я девушка Евгения - Суворова, т.к. ее фамилия, такая же, как у Дмитрия.
Лоскутов из Ярославля, значит он не может быть Георгием => Лоскутов - Юлий.
Остается одна Фамилия Белов и одно имя Георгий => Белов - Георгий
1) Условие выполнится только один раз, когда i = 5, так что ответ 22
2) 4 строчка
3) Условие будет выполнено четыре раза для i = 0, i = 1, i = 2, i = 3. Сумма 10 + 20 + 30 = 60
Var <имя_массива>: array [(мин_знач_индекса)..(макс_знач_индекса)] of тип_элементов;
Например:
var mas: array [1..10] of integer; - массив mas с 10 пронумерованными целочисленным значениями.