Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Задача.
Необходимо вывести буквы латинского алфавита, стоящие на четных позициях.

Добавлено (16.11.13, 20:24)
---------------------------------------------
Просто вывести буквы латинского алфавита можно так:

program z1;
var i:char;
begin
for i:='a' to 'z' do write(i,' ');
end.

или так:

program z2;
var i:char; 
Begin 
i:='a';
while i<>succ('z') do begin 
if i<>succ('z') then 
write(i,' '); 
i:=succ (i); 
end; 
end.

Не понимаю как определить четность в данном случае.

1 | Автор: 777Lina | 2013-11-16, 20:24   |  Репутация: [ + 0 ]
1 | Автор: 777Lina | 2013-11-16, 20:24   |  Репутация: [ + 0 ]
поставь счётчик, в чём проблема?

Цитата 777Lina ()
program z1; var i:char;
begin
for i:='a' to 'z' do write(i,' ');
end.

program z1;
var
i:char;
count:byte;
begin
count:=1;
for i:='a' to 'z' do begin
if (count mod 2 = 0) then write(i,' ');count:=count+1;end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-11-17, 12:40   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: