Задачи - Форум
Понедельник, 05.12.2016, 07:27
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи (Паскаль)
Задачи
Michael89Дата: Суббота, 23.01.2010, 14:55 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Помогите решить задачи в паскале,
зад.№1 Составить программу-генератор простых чисел, в основу положить формулу 2x^2+29 при 0<=x<=28.

зад.№2 пусть элементоми круга являются радиус (первый элемент), диаметр (второй элемент) и длина окружности (третий элемент). Составить программу, которая по номеру элемента запрашивала бы его соответствующие значение и вычисляла бы площадь круга.

зад.№3 Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке. Если можете, то решите задачи к 25.01.2010 пожалуйста.

Сообщение отредактировал Michael89 - Суббота, 23.01.2010, 14:58
 
ignorerДата: Суббота, 23.01.2010, 16:22 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
часов через 5 решу и выложу пару решений
 
ignorerДата: Воскресенье, 24.01.2010, 12:11 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
как ни странно, но вот первая smile
Code
Var x : integer;
begin
cls;
for x:=0 to 28 do write(2*x*x+29, ' ')
end.
 
ignorerДата: Воскресенье, 24.01.2010, 12:17 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
вот третья
Code
Var s : string;
       i, a, b : integer;
begin
  cls;
  read(s);
  for i:=1 to length(s) do case s[i] of
   '(' : inc(a);
   ')' : inc(b);
  end;
  if a=b then write('количество скобок одинаково') else write('количество скобок различно');
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи (Паскаль)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016