Отправляет email-рассылки с помощью сервиса Sendsay

Задачи и решения по программированию в среде TurboPascal

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "RFpro.ru: Программирование на языке Pascal" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Сентябрь 2025
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Зорин Юрий 

 
Задачи разных уровней сложности и решения к ним по программированию в среде 
Turbo Pascal.

Статистика

2.200 подписчиков
-3 за неделю
Выпуски
Статистика

Задачи и решения по программированию в среде TurboPascal - Движение к звездам

Информационный Канал Subscribe.Ru Задачи и решения по программированию в среде Turbo Pascal Здравствуйте , уважаемые подписчики. Перед Вами 1 4 номер рассылки. Подписалось 1 85 0 + Ответ к задаче "Картинная галерея" ( Евгений Зайцев , Сергей Юшанов ) var l,k,j,i,n:integer; pl:real; f:text; x,y:array[1.100]of integer; s:array[1.100]of real; Begin assign(f'gallery.in);reset(f); readln(f,n); for i=1 to n do readln(f,x[i,y[i); close(f); for i=1 to n do begin for j=1 to n do begin l=j-1;if l=0 then l=...

2004-02-20 13:50:11 + Комментировать

Задачи и решения по программированию в среде TurboPascal - Картинная галерея

Информационный Канал Subscribe.Ru Задачи и решения по программированию в среде Turbo Pascal Здравствуйте , уважаемые подписчики. Перед Вами 1 3 номер рассылки. Подписалось 1 8 00 + Рекомендую подписаться Рассылки Subscribe.Ru Знаете ли Вы, что. Ответ к задаче "Забавный конфуз" ( Сергей Юшанов и Евгений ) Program conf; Var i,j,n,k,min,max:integer; a:longint; f1,f2:text; BEGIN Assign(f1'confuse.in); Assign(f2'confuse.out); Reset(f1); Read(f1,n); Readln(f1,k); Read(f1,a); min=a; max=a; For i=2 to n ...

2004-02-15 12:07:16 + Комментировать

Задачи и решения по программированию в среде TurboPascal Забавный конфуз

Информационный Канал Subscribe.Ru Задачи и решения по программированию в среде Turbo Pascal Здравствуйте , уважаемые подписчики. Перед Вами 1 2 номер рассылки. Подписалось 1 8 00 + Ответ к задаче "Сумма" (X-RayMan , Сергей Юшенов, Евгений ) var a,b,c:array[1.350]of char; sum:array[1.350]of word; f:text; i,p,k,l:integer; sa,sb:integer; begin l=0; assign(f'sum.in);reset(f); k=0; repeat inc(k); read(f,c[k); until eoln(f); for i=350-k+1 to 350 do begin inc(l); a[i=c[l]; end; k=0;c=b; repeat inc(k); r...

2004-02-03 13:04:07 + Комментировать

Задачи и решения по программированию в среде TurboPascal Дополнение к Сумме

Информационный Канал Subscribe.Ru В задаче "Сумма" 109 означает 10 в девятой степени, а 10300 - 10 в трехсотой степени http://subscribe.ru/ E-mail: ask@subscribe.ru Отписаться Убрать рекламу ...

2004-01-19 17:40:35 + Комментировать

Задачи и решения по программированию в среде TurboPascal - Сумма

Информационный Канал Subscribe.Ru Задачи и решения по программированию в среде Turbo Pascal Здравствуйте , уважаемые подписчики. Перед Вами 1 1 номер рассылки. Подписалось 1600 + Ответ к задаче " Обмена переменных " (также ответ к данной задаче прислало очень много участников. Здесь представлены пока три известных способа обмена переменных ) a = a + b; b = a - b; a = a - b; A = A xor B; B = A xor B; A = A xor B; a=a*b; b=a/b; a=a/b; " Сумма " (Входной файл: sum.in ) ( Выходной файл : su...

2004-01-19 15:10:09 + Комментировать

Задачи и решения по программированию в среде TurboPascal - Обмена переменных

Информационный Канал Subscribe.Ru Задачи и решения по программированию в среде Turbo Pascal Здравствуйте , уважаемые подписчики. Перед Вами 10 номер рассылки. Подписалось 1600 + Ответ к задаче "Среднеарифметическое" (также ответ к данной задаче прислал Сергей Юшанов и Сафонцев Денис) Var A,I1,I2,I3,i:integer; A1,A2,A3,A4,A5,A6:INTEGER; Begin For i=100 to 999 do begin I1(i div 100); I2(i mod 100)div 10; I3(i mod 10); A1=I1*100+I2*10+I3; A2=I3*100+I1*10+I2; A3=I3*100+I2*10+I1; A4=I1*100+I3*10+I2; A...

2004-01-11 15:45:12 + Комментировать

Задачи и решения по программированию в среде TurboPascal - Среднеарифметическое

Информационный Канал Subscribe.Ru Ответ к задаче "Треугольник" var s1,o,s2,s3,s,n,p,i,i1,i2,i3:integer; f:text; a,b,x,y:array[1.100]of integer; begin assign(f'input.in);reset(f); READLN(f,n);for i=1 to n do begin readln(f,x[i,y[i);end;close(F); for i1=1 to n do begin for i2=1 to n do begin for i3=1 to n do begin p=0; if (i1<>i2)and(i2<>i3)then begin s=abs(x[i1*y[i2+x[i3*y[i1+x[i2*y[i3-x[i3*y[i2-x[i2*y[i1-x[i1*y[i3); for i=1 to n do begin s1=abs(x[i1*y[i2+x[i*y[i1+x[i2*y[i-x[i*y[i2-x[i...

2004-01-05 12:25:11 + Комментировать

Задачи и решения по программированию в среде TurboPascal Треугольник

Информационный Канал Subscribe.Ru Ответ к задаче "Сапер" uses crt; var f:text; s:string; x,y,j,i,n,o,p:integer; a:array[1.75,1.75]of char; function prov(i,j:integer;s:char:integer; var d:integer; begin d=0; if a[i+1,j=s then inc(d); if a[i-1,j=s then inc(d); if a[i,j+1=s then inc(d); if a[i,j-1=s then inc(d); if a[i+1,j+1=s then inc(d); if a[i+1,j-1=s then inc(d); if a[i-1,j+1=s then inc(d); if a[i-1,j-1=s then inc(d); prov=d; end; Begin clrscr; assign(f'mine.in);reset(f); readln(f,n); for j=1 to...

2003-12-28 05:25:47 + Комментировать

Задачи и решения по программированию в среде TurboPascal Вопросы читателей

Информационный Канал Subscribe.Ru Вопросы читателей Задать вопрос в рассылку Здесь Вопрос 1. Здравствуйте Как написать программу, определяющую количество рабочих дней (праздники не учитывать) между двумя датами (dd.mm.yyyy) Заранее благодарен Павел mailto: s.pavel@mail.ru Вопрос 2. Помогите! Напишите программу поиска всех прростых чисел трехзначных чисел, которые остаются простыми при каждой перестановке своих цифр. Формат вывода Ваща программа должна вывести на экран поочередно все искомые числа по одному...

2003-12-13 13:11:56 + Комментировать

Задачи и решения по программированию в среде TurboPascal Сапер

Информационный Канал Subscribe.Ru Ответ к задаче "Туннель" Прислал: Михаил Довгилев PROGRAM Tunnel; TYPE masTUN = ARRAY [1.1000] OF STRING[15]; VAR tIN, tOUT : masTUN ; tunnel_in, tunnel_out : TEXT ; m, N, l, o,k : integer ; BEGIN m = 0; N = 0; assign(tunnel_in, 'input.txt); reset(tunnel_in); readln(tunnel_in, N); k = 0; WHILE N > k DO BEGIN inc(k); readln(tunnel_in, tIN[k); END; k = 0; WHILE N > k DO BEGIN inc(k); readln(tunnel_in, tOUT[k); END; WHILE m < N DO BEGIN l = 0; inc(m); WHILE...

2003-12-08 17:03:57 + Комментировать
  • 1
  • 2