program tsveti;
var x,y,z,w:integer;
begin
write('Введите количество девочек: '); readln(x);
write('Введите количество цветов: '); readln(y);
if (y div x) mod 2 = 0 then begin // здесь мы проверяем, не получается ли чётное количество цветков, и если получается чётное, то вычитаем остаток и количество девочек, чтобы добиться нечётного количества
w := y mod x + x;
z := (y - w) div x;
end
else begin
w := y mod x;
z := y div x;
end;
writeln('Девочкам подарили по ', z, ' шт. цветков.');
writeln('Осталось ', w, ' шт. цветков.');
end.
а если у меня в двух таблицах строки не все , что делать?
вот например два файлика в архиве (размер 41кб, пароль архива "934934" без кавычек),
в одном из файликов некоторых строчек нет, а в результирующем итоговом файлике необходимо получить сумму значений в ячейках, и все строки какие есть по совокупности в двух файлах