Вот прикрепил файл вот прикрепил файл вот прикрепил файл
1.var i,a:integer;begina:=1;while(a<>0) do beginreadln(a);if a<0 then i:=i+1;end;writeln(i);readln;
end.
2.var dd,mm,gg,hh,min:integer;begin randomize;dd:=random(31)+1;mm:=random(12)+1;gg:=random(11)+2000;hh:=random(24);min:=random(60);write(dd);write('/');write(mm);write('/');write(gg);write(' ');write(hh);write(':');write(min);readln;
end.<span>
</span>
Сначала разбей числа и заноси их в char.
К примеру: число 24 - это 2 и 4, число 14 - это 1 и 4, и т.д.
Далее делай проверку на наличие цифры 4
к примеру:
char num[2];
bool result;
for (int q = 0; q < i; q++)
{
if (num[q] == 4)
result = true;
}
Далее просто с помощью цикла находишь самое маленькое число
к примеру:
for (int i = 0; num < i; i++)
Program sadadasf;
var i,k: integer;
begin
k:=0;
For i:=1 to 50 do
If (i mod 5=0) or (i mod 7=0) then k:=k+i;
Writeln('Сумма этих чисел: ',k);
<span>end.</span>
Ответ нижеотписавшегося неверный, т.к. 2 и 7 соединены должны быть лишь одной дорогой.
Мой ответ 3. Все расчерчено.