1. program
HelloWorld;
var summ,i
:integer;
begin
i:=2;
while i<=200 do
begin
summ := summ + i;
i:=i+2;
end;
writeln(summ)
end.
2.
program
HelloWorld;
var S,i,n:
integer;
begin
<span> while i<6 do</span>
<span> begin</span>
<span> writeln('</span>Введите значение число:');
<span> readln(S);</span>
<span> if S mod 2 = 0 then n:=n+1;</span>
<span> i:=i+1;</span>
<span> writeln(n);</span>
<span> end;</span>
<span> </span>writeln('Количество
четных:');
writeln(n);
end.
Решение задачи ещё актуально? Лично я сейчас тестирую загрузку текстовых данных отличных от картинок )). Если листинг программы загрузится, чудесно, ознакамливайтесь кому интересно.
В оригинале файл называется script.php.txt, кодировка файла UTF-8, язык программирования PHP.
Из работы оценочного алгоритма можно увидеть почему последовательности на основе GGB самые эффективные, а остальные являются лишь инверсиями, смещениями или объединениями того и другого.
1 шаг создать один слайд
2 шаг написать то что вам нужно
3 шаг доделать призентацию
4 шаг сохранить
Var M: array[1..15] of integer;
i, count: integer;
begin
for i := 1 to 15 do begin
M[i] := random(15);
write(M[i]:3);
if(M[i] mod 2 = 0) then inc(count);
end;
writeln(#10, 'Кол-во четных элементов: ', count);
<span>end.</span>