// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var m:=2*2;
var s:=m;
for var i:=3 to 10 do begin m*=2; s+=m end;
Writeln(s)
end.
<u><em>Тестовое решение:</em></u>
2044
У вас ошибка в написании. Проверьте ещё раз.
Let array = [1, 2, 8, 4, 12, 35, 2, 5, 6, 21];
let odd = [Int];
let even = [Int];
for (number in array) {
if ((number mod 2) == 0) {
odd.append(number);
} else {
even.append(number);
}
}
println('Четные числа: \(odd)');
println('Нечетные числа: \(even)');
Ответ:
Объяснение:
1.
var a, b: integer;
begin
read(a, b);
if a < b then
begin
a := a * 3;
b := b * a
end
else
begin
a := a * 2;
b := b * 3;
end;
print(a, b);
end.
2.
var kol, cen: integer;
begin
writeln('Введите количество и цену');
read(kol, cen);
if kol * cen < 300 then writeln('Хватит денег')
else writeln('Не хватит ', kol*cen - 300, ' рублей.')
end.
Замечание: обработка возможных ошибок исходных данных отсутствует.
#include <iostream>
#include <fstream>
using namespace std;
int main()
{
ifstream in;
ofstream out;
int a = 5, b = 15, c;
int k[b-a+1];
for (int i=0; i<b-a+1; i++) k[i] = 0;
in.open("f.txt");
while(in >> c)
{
k[c-a]++;
}
for (int i=0; i<b-a+1; i++)
cout << i+a << " - " << k[i] << '\n';
in.close();
return 0;
}
Пример:
Содержимое файла f.txt:
7 10 15
8 7 7 10
Результат:
5 - 0
6 - 0
7 - 3
8 - 1
9 - 0
10 - 2
11 - 0
12 - 0
13 - 0
14 - 0
15 - 1