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

@некит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.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

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

	Сколько журавликов сделал каждый ребенок? 27.07.2014, 23:52. Показов 13946. Ответов 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 Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	27.04.2015, 13:28
	Да убери n из переменных, от тебя осталась... 0

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