Хулиганы первый и второй не любят доску почёта своей школы. поэтому они решили наглым образом украсть оттуда школьную стенгазету, сделанную отличниками, и порвать на части. первый хулиган брал кусочек газеты и рвал его на 4 части, а второй хулиган – на 7. однако скоро дежурные нашли n кусочков этой газеты. им стало интересно, все ли кусочки они нашли. им.
дежурные так старались, что упустить из виду они могли не более 2 кусочков.
входные данные
натуральное число n < 1018.
выходные данные
выведите “yes”, если все кусочки найдены, и “no” – в противном случае.
#include
using namespace std;
int main()
{
int n, b = 3, x;
cin > > n;
x = n - 1;
if (x % 3 == 0)
cout < < "yes" < < endl;
else
cout < < "no" < < endl;
return 0;
}
в душе не чаю, почему валится на 6 контесте. (:
друзья саша и паша живут на одной улице. как то раз они договорились порешать открытой московской олимпиады у паши, который живет в доме, находящимся на расстоянии a от начала улицы. саша некоторое время назад вышел к своему другу и на расстоянии b от начала улицы он оглянулся по сторонам и понял, что дом паши где-то рядом. теперь его скорость равна v.
определите, сколько еще времени потребуется саше, чтобы дойти до дома своего друга.
входные данные
неотрицательные целые числа a, b, v(v≠0).
выходные данные
выведите ответ на с точностью с 5 знаками после запятой
а тут чет туплю
1.if условие then команды end
Объяснение:
2.if условие then команды1 else команды2 end
if условие1
then команды1
else if условие2 then команды2
else if условие3 then команды3
...
else if условиеN+1 then командыN+1
else команды end;
3.if условие1 then команды1
elsif условие2 then команды2
elsif условие3 then команды3
...
4.else команды end;
5.If условие
then
begin
операторы;
end
else
begin
операторы;
end;
6.if условие
...
fi;
Составим программу вычисления суммы ряда чисел 5, 10, 15, …, 50 на языке программирования Pascal ABC. Введем обозначения следующих величин: пусть s – сумма чисел ряда, которую надо найти, а i – порядковый номер чисел ряда. Начальное значение суммы s будет равным нулю. Так как чисел несколько, то будем использовать в программе оператор цикла с параметром for. По условию задачи числа суммируются, начиная с числа 5, с интервалом 4 числа, поэтому значение i в каждом цикле будем увеличивать на 4.
Программа может выглядеть так:
program zadacha;
uses crt;
var s,i: integer;
begin
s:=0; {Задание начального значение суммы s}
for i:=5 to 50 do begin
s:=s+i; {Вычисление суммы чисел}
i:=i+4; {Увеличение значения параметра i на 4}
end;
writeln ('s=',s) {Вывод результата суммы s}
end.
Можно решить данную задачу и вторым используя операцию mod:
program zadacha;
uses crt;
var s,i: integer;
begin
s:=0; {Задание начального значение суммы s}
for i:=5 to 50 do
if i mod 5=0 {Поиск чисел, кратных 5}
then s:=s+i; {Вычисление суммы чисел}
writeln ('s=',s); {Вывод результата суммы s}
end.
ответом будет s=275.
Составить программу нахождения значения функции у= 5х+х2, при х=50, 49, 48, 47, …, 40.
program zadacha;
uses crt;
var x,y,i:integer;
begin
for i:=50 downto 40 do begin y:=5*i+i*2; writeln ('y=',y); end;
writeln ('y=',y)
end.
Объяснение: