program sd;
var i : integer;
s : longint;
begin
s := 1;
i := 10;
repeat
if (i mod 13 = 0) and (i mod 2 <> 0) then
s := s * i;
i:= i+1;
until i>99;
writeln('proizvedenie = ',s);
end.
Нет не будет 0001,
А будет так:
530 * 90 * 70 = 3339000
3339000 : 8 = 417375
3339000 : 417375 = 8
Ответ : 8
<html><head><title>Лабораторная №4</title><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body><span> <table border="1" cellspacing="0" rowspacing="0"></span><span> <caption><b>Горящие путевки!</b></caption></span> <tr> <th bgcolor="yellow">Италия</th> <th bgcolor="blue"> Франция</th> <th bgcolor="red"> Египет</th> </tr> <tr bgcolor="grey"> <td>На две недели - от 320$ </td> <td>Пять дней в Париже - 430$ </td> <td>Пирамиды - 450$ </td> </tr> <tr> <td>На неделю в РИМ - 250$ </td> <td>Замки Луары - 530$ </td> <td>Shop-тур - 270$</td> </tr> <tr></tr>> <td colspan="2">Италия - Франция 5 Дней от 400$</td><span> <td rowspan="2">Долина Нила - от 300$ </td></span> </tr> <tr> <td>Франция неделя - 250$ </td> <td>Версаль неделя - 300$ </td> </tr></table>
</body><span></html></span>