Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 12.11.2010
Сообщений: 3
1

Напечатать слово world n раз

12.11.2010, 14:39. Просмотров 1672. Ответов 3
Метки нет (Все метки)

привет ребят)
нужна очень помощь))
если не трудно напишите решение задач вот этих:
1) Напечатать слово world n раз.
2) Напечатать числа от 1 до n.
3) Напечатать квадраты чилес.
комуне трудно помогите пожалуйста)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2010, 14:39
Ответы с готовыми решениями:

Напечатать все слова, у которых первая буква входит в слово еще раз
ЛАБОРАТОРНАЯ РАБОТА №10 Тема :обработка данных литерного типа. Цель:приобретение навыков работы...

Напечатать слова последовательности слов, в которых 1-я буква входит в слово еще раз. Использовать массив
Дана последовательность, состоящая из 10 слов. Напечатать те слова последовательности, в которых...

Напечатать те слова последовательности, которые отличны от последнего слова и каждая буква входит в слово не менее двух раз
Прошу помощи с написанием программы без использования функций и записей. Задача такая: Дана...

напечатать в алфавитном порядке все звонкие согласные буквы,которые входят в каждое нечетное слово и не входят ни в одно четное слово
помогите пожалуйста решить задачу** дан текст на русском языке.напечатать в алфавитном порядке все...

3
4115 / 990 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
12.11.2010, 14:45 2
1
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var
i,n:integer;
begin
writeln('skolko raz?');
readln(n);
for i:=1 to n do
writeln('say "nja" to this world!');
readln;
end.
Добавлено через 56 секунд
2
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var
i,n:integer;
begin
writeln('do skolki pisat?');
readln(n);
for i:=1 to n do
writeln(i,' Missisipi');
readln;
end.
Добавлено через 1 минуту
3
Pascal
1
2
3
4
5
6
7
8
9
uses crt;
var
n:integer;
begin
writeln('vvedite chislo');
readln(n);
writeln('kvadrat=',n*n);
readln;
end.
0
0 / 0 / 0
Регистрация: 12.11.2010
Сообщений: 3
12.11.2010, 15:48  [ТС] 3
спасибо большое)
ещё буду обращаться))
благодарен)
0
16 / 16 / 3
Регистрация: 11.11.2010
Сообщений: 88
12.11.2010, 15:56 4
Учись, дитё. Учись...
Первая задачка:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program World;
 
var
  nn, n: integer;
 
begin
  writeln('Сколько нужно раз напечатать слово "world"? >>> ');
  readln(nn);
  writeln();
  for n:= 1 to nn do
    writeln(n, '. world');
    n:= n+1;
end.
Вторая задачка:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program Chisla;
 
var
  nn, n: integer;
 
begin
  writeln('До скольки нужно печатать? >>> ');
  readln(nn);
  writeln();
  for n:= 1 to nn do
    write(n, ' ');
end.
Третья задачка:
Pascal
1
2
3
4
5
6
7
8
9
10
11
program Kvadrat;
 
var
  c, cvad: integer;
 
begin
  writeln('Введите число >>> ');
  readln(c);
  cvad:= c*c;
  writeln('Квадрат числа ', c, ' равен ', cvad);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2010, 15:56

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Напечатать в алфавитном порядке все звонкие согласные, которые входят в слово 2 и более раз
Звонкие согласные- б в г д ж з л м н р. Case написал а со множеством застрял. Помогите плиз.

Даны текстовый файл и некоторое слово. Напечатать те строки файла, которые содержат данное слово
Всем доброго времени суток. Вот задача: Даны текстовый файл и некоторое слово. Напечатать те...

Продублировать первое слово, если слово минимальной длины встречается более 2 раз.
2. Дана строка, слова разделены одним пробелом, в конце точка. Продублировать первое слово, если...

Напечатать слово, входящее в очередь максимальное количество раз
Ребят после болезни, пришел а мне сразу на программу и делай. Могли бы помочь с ней и желательно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.