Правильно или нет не знаю
Ученик является элементом множества Класс
<span>Водород входит в состав воды. </span>
<span>Среда предшествует четвергу.</span>
Вот решение в пару строчек:
program with_for;
var i, x: integer;
begin
for i:= 1 to 100 do if i mod 2 =0 then x:=x+i*2 else x:=x+i;
writeln(x);
end.
Нет возможсти проверить. Если неправильно - напиши.
______________
var x : integer;
begin
for x:=36 to 1477 do begin
if x div 8 = 0 then
writeln(x/2);
if x div 7 = 0 then
writeln(x*2);
end;
end.
Потому что, тип char имеет диапазон от -128 до 127 знаков по умолчанию. Простое заключение следующее из этого правила - писать можно так:
- for(char a=-128; a<127; a++)
Или использовать unsigned char:
- for(unsigned char a=0; a<255; a++)
У которого диапазон от 0 до 255.