Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
Думаю так, по крайней мерее я бы сделал именно так
www.adres_sajta.ru/images/foto.jpg
мы просто пишем в файле page.html полный путь к файлу foto.jpg, и всё)
Ну, если розы росли так:
* *
* *
* *
* *
* *
то периметр 12 метров ( но здесь есть заковыка: если первый куст уже полит, то зачем же к нему идти еще раз? Тогда ответ 9*1,2 = 10,8 м)...
Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.
Алг
нач
цел N = 5
цел i, index
вещ minimum
вещтаб mas[1:N]
вывод "Введите 1 элемент: "
ввод mas[1];
mas[1] := mas[1] * 2
minimum := mas[1]
index := 1;
нц для i от 2 до N
вывод "Введите ", i, " элемент: "
ввод mas[i]
mas[i] := mas[i] * 2;
если mas[i] < minimum то
minimum := mas[i]
index := i;
всё
кц
вывод нс, "Обработнный массив:", нс, нс
нц для i от 1 до N
вывод "Элемент ", i, " = ", mas[i], нс
кц
вывод нс, "Минимальный элемент: A[", index, "] = ", minimum
кон