Сколько журавликов сделал каждый ребенок?

@некит434 · Регистрация: 23.01.2014

Студворк — интернет-сервис помощи студентам

Петя, Катя и Сережа делают из бумаги журавликов. Вместе они сделали S журавликов. Сколько журавликов сделал каждый ребенок, если известно, что Петя и Сережа сделали одинаковое количество журавликов, а Катя сделала в два раза больше журавликов, чем Петя и Сережа вместе?
Входные данные:
В единственной строке входного файла записано одно натуральное число S - общее количество сделанных журавликов (S < 1000000).

Выходные данные:
В единственную строку выходного файла нужно вывести три числа, разделенных пробелами - количество журавликов, которые сделал каждый ребенок (Петя, Катя и Сережа).

Пример входного файла (input.txt):
6
Пример выходного файла (output.txt):
1 4 1

@Puporev · 28.07.2014, 06:41

Pascal
1
2
x:=S div 6;
write(x,' ',4*x,' ',x);

@некит434 · 28.07.2014, 11:11 **[ТС]**

полностью плз

@Николайчик · 26.04.2015, 22:35

Pascal
1
2
3
4
5
6
7
8
9
var n:integer; 
p,k,s:real;
 begin 
readln(n); 
p:=n/6; 
s:=p; 
k:=4*s; 
write(p:4:2,' ',s:4:2,' ',k:4:2);
 end.

Нужна помощь, где ошибка??Заранее спасибо.

@Puporev · 27.04.2015, 10:37

Для людей так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var n,p,k,s:integer; //с какого угару журавлики не целые?
                    //Как в мультике 1.5 водопроводчика?
begin
readln(s);//по условию всего S
if s mod 6<>0 then
 begin
  write('Число S должно делиться на 6');
  exit
 end;
p:=s div 6;;
k:=4*p;
write(p,' ',k,' ',p);
end.

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

@Николайчик · 27.04.2015, 13:19

Сообщение от Puporev

Для людей так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var n,p,k,s:integer; //с какого угару журавлики не целые?
                    //Как в мультике 1.5 водопроводчика?
begin
readln(s);//по условию всего S
if s mod 6<>0 then
 begin
  write('Число S должно делиться на 6');
  exit
 end;
p:=s div 6;;
k:=4*p;
write(p,' ',k,' ',p);
end.

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

А где задействовано n?

@Puporev · 27.04.2015, 13:28

Да убери n из переменных, от тебя осталась...

@Николайчик · 27.04.2015, 13:49

Сообщение от Puporev

Да убери n из переменных, от тебя осталась...

Все равно не работает.Выдает код ошибки 201((

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling Main.pas
Linking Main
11 lines compiled, 0.0 sec

@Puporev · 27.04.2015, 14:48

Сообщение от Николайчик

Free Pascal Compiler version 2.6.2-8

И при чем тут раздел Паскаль АВС?

Добавлено через 6 минут
Но у меня и во Фри исправно работает.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var p,k,s:integer;
begin
readln(s);
if s mod 6<>0 then
 begin
  write('Число S должно делиться на 6');
  readln;
  exit
 end;
p:=s div 6;
k:=4*p;
write(p,' ',k,' ',p);
readln;
end.

Добавлено через 33 минуты
Вот так написал в Дели и прошло на сайте.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var s,p:longint;
    input,output:textfile;
begin
assignfile(input,'input.txt');
reset(input);
read(input,s);
closefile(input);
p:=s div 6;
assignfile(output,'output.txt');
rewrite(output);
write(output,p,' ',4*p,' ',p);
closefile(output);
end.

@Николайчик · 27.04.2015, 14:50

Странно, а во write(s/6)? Для Юного Программиста сайта не подходит чет.

@Puporev · 27.04.2015, 14:56

так не s/6, а s div 6;

Добавлено через 4 минуты
на паскале будет так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var s,p:longint;
    input,output:text;
begin
assign(input,'input.txt');
reset(input);
read(input,s);
close(input);
p:=s div 6;
assign(output,'output.txt');
rewrite(output);
write(output,p,' ',4*p,' ',p);
close(output);
end.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@некит434 2 / 2 / 0 Регистрация: 23.01.2014 Сообщений: 272

	Сколько журавликов сделал каждый ребенок? 27.07.2014, 23:52. Показов 13894. Ответов 10 Метки нет (Все метки) Петя, Катя и Сережа делают из бумаги журавликов. Вместе они сделали S журавликов. Сколько журавликов сделал каждый ребенок, если известно, что Петя и Сережа сделали одинаковое количество журавликов, а Катя сделала в два раза больше журавликов, чем Петя и Сережа вместе? Входные данные: В единственной строке входного файла записано одно натуральное число S - общее количество сделанных журавликов (S < 1000000). Выходные данные: В единственную строку выходного файла нужно вывести три числа, разделенных пробелами - количество журавликов, которые сделал каждый ребенок (Петя, Катя и Сережа). Пример входного файла (input.txt): 6 Пример выходного файла (output.txt): 1 4 1 0

@некит434 2 / 2 / 0 Регистрация: 23.01.2014 Сообщений: 272
	28.07.2014, 11:11 [ТС]
	полностью плз 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	27.04.2015, 13:28
	Да убери n из переменных, от тебя осталась... 0

@Николайчик 0 / 0 / 1 Регистрация: 23.11.2014 Сообщений: 136
	27.04.2015, 14:50
	Странно, а во write(s/6)? Для Юного Программиста сайта не подходит чет. 0