Помогите с задачей - Форум
Воскресенье, 04.12.2016, 17:16
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите с задачей
Помогите с задачей
strikeДата: Воскресенье, 26.09.2010, 16:12 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
Помогите пожалуйста с задачей!!срочно!!Я в программировании туплю!! wacko
Вот условие:
В массиве содержатся 10 букв — С, Ф, О, И, К, Л, О, И, Л, Н. Выведите на экран слово, образованное буквами с четными индексами, и слово, образованное буквами с нечетными индексами. Заранее спасибо!! biggrin

Добавлено (26.09.2010, 16:12)
---------------------------------------------
Забыла сказать......задача в Turbo Pascal

 
ВахаДата: Воскресенье, 26.09.2010, 17:05 | Сообщение # 2
Подполковник
Группа: Новичок
Сообщений: 28
[ 6 ]
Статус: Offline
uses CRT;
const
mas: array [1..10] of char = ('С', 'Ф', 'О', 'И', 'К', 'Л', 'О', 'И', 'Л', 'Н');
var
i: byte;
BEGIN
ClrScr;
Writeln ('Слово образованное четными буквами:');
For i:=1 to 10 do
if i mod 2 = 0 then Write (mas[i]);
WriteLn;
Writeln ('Слово образованное нечетными буквами:');
For i:=1 to 10 do
if i mod 2 <> 0 then Write (mas[i]);
ReadKey;
END.


Гвардия умирает но не сдается
 
strikeДата: Воскресенье, 26.09.2010, 17:14 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
спасибо большое!!!! biggrin biggrin
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите с задачей
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016