Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const n=5;
- Var
- i:byte;
- number:integer;
- numbers:word;
- Begin
- // обнуляем переменные, так просят на ЕГЭ
- numbers:=0;number:=0;i:=0;
- // цикл от 1 до 5 (или сколько мы поставим для n)
- For i:=1 to n do
- begin
- writeln('Введите число ');
- readln(number);
- if number div 2<>0 then
- numbers:=numbers+number;
- end;
- // выводим
- writeln(numbers);
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement