a. драгоценные камни ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или gems.in вывод стандартный вывод или gems.out гномы, жители страны мории, добывают драгоценные камни трех видов — поделочные (вид a), полудрагоценные (вид b) и драгоценные (вид c хранят их гномы в одинаковых коробках, каждую из которых наполняют только одним видом камней. заполненные коробки гномы складывают в огромных залах мории одну на другую так, что получаются вертикальные стопки. самые «плохие» стопки гномы оркам. стопка считается плохой, если в ней подряд лежат более одной коробки, заполненной камнями вида a. стопка считается «хорошей», если она не является «плохой». от вас требуется написать программу, которая для заданного количества коробок n будет определять число возможных «хороших» стопок. формат ввода в единственной строке входного файла записано одно натуральное число 1 ≤ n ≤ 20. формат вывода в единственной строке входного файла записано одно натуральное число — количество «хороших» вариантов формирования стопки. пример ввод вывод 2 8
Ответы
1. Если имеется в виду язык Pascal, то получим следующее:
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
readln(a);
b:=a+a;
writeln (b);
end.
Program50.pas(5) : Неизвестное имя 'b'
2. Попробуем такой вариант на Python
a =int(input())
b = a+a
print(b)
При вводе а получим на выходе 10
Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
readln(a);
var b:=a+a;
writeln (b);
end.
Рузультат при введенном значении 5 равен 10
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
readln(a);
b:=a+a;
writeln (b);
end.
Program50.pas(5) : Неизвестное имя 'b'
2. Попробуем такой вариант на Python
a =int(input())
b = a+a
print(b)
При вводе а получим на выходе 10
Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
readln(a);
var b:=a+a;
writeln (b);
end.
Рузультат при введенном значении 5 равен 10
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
#include <cstdlib>
#include <vector>
using namespace std;
int main()
{
vector<int> v;
cout <<"Укажите размер массива: ";
int s;
cin >>s;
srand(time(0));
for(int i=0; i!=s; ++i)
v.push_back(rand()%100);
int find;
cout <<"Введите число для поиска: ";
cin >>find;
bool founded = false;
for(auto it=v.begin(); it!=v.end(); ++it)
if(*it==find) founded=true;
if(founded)
cout <<"Это число есть в массиве!" <<endl;
else cout <<"Такого числа нет в мвссиве!" <<endl;
return 0;
}