#include <bits/stdc++.h>
using namespace std;
int main() {
int n;
cin >> n;
++n; // Потому что нам нужно число, большее n
while (n % 19 != 0) ++n; // Увеличиваем n, пока оно не делится на 19
cout << n << endl;
return 0;
}
1.
<span>var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:=a to b do
if i mod 2=0 then k:=k+1;
writeln('k = ',k);
end<span>.
Пример:
5 20
k = 8
2.
var a,b,c:integer;
begin
readln(a,b);
c:=a;
a:=b;
b:=c;
writeln(a,' ',b);
end.
Пример:
5 20
20 5</span></span>
M = E/gh - формула для массы тела
//Pascal ABC.NET v3.0 сборка 1111
var
a,k,s:integer;
begin
readln(k); //вводим k
a:=0;
s:=0;
while a>=0 do //пока а >=0
begin;
if a>k then s:=s+a; //если a>k, тогда добавляем к s
readln(a); //каждый раз вводим в a
end;
writeln(s); //выводим s
<span>end.
Пример ввода:
45
34
56
67
<span>-2
Пример вывода:
123</span></span>
Вторая.
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int main()
{
double a[4][4];
int mass[4] = { 0 };
for(int i = 0; i < 4; i++)
{
for(int j = 0; j < 4; j++)
{
cin >> a[i][j];
}
}
cout << endl;
for(int i = 0; i < 4; i++)
{
for(int j = 0; j < 4; j++)
{
if(a[i][j] < 0.0)
{
mass[i]++;
}
}
}
for(int i = 0; i < 4; i++)
{
cout << mass[i] << ' ';
}
cout << endl;
return 0;
}
