А - 03
Б - 07
В - 11
Г - 112
Д - 132
Е - 179
Ж - 221
З - 02
И - 75
Й - 83
К = 256
Л - 773
и т.д.
С числами так же, только, например, 1 - это А, 2 - это Б, и так до 9.
В буквах - значение чисел не должно совпадать, как и в числах.
const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>
1. Вот так для чего-то решают в школе...
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
var
i,j,s:integer;
begin
// задание 1
s:=0;
for i:=1 to 10 do s:=s+i*i;
Writeln(s);
// задание 2
j:=0;
for i:=1 to 50 do
if i mod 2=0 then j:=j+1;
Writeln(j)
end.
<u>Результат</u>
385
25
А вот так можно это решить по-нормальному за минуту.
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(1.To(10).Select(i->i*i).Sum); // задание 1
Writeln(Range(2,50,2).Count) // задание 2
end.
<u>Результат</u>
385
25
#include <iostream>
using namespace std;
int main() {
double x1, y1, x2, y2;
cout << "x1 = ";
cin >> x1;
cout << "y1 = ";
cin >> y1;
cout << "x2 = ";
cin >> x2;
cout << "y2 = ";
cin >> y2;
if (x1 * x1 + y1 * y1 < x2 * x2 + x1 * x1) {
cout << "(" << x1 << "; " << y1 << ")";
} else {
cout << "(" << x2 << "; " << y2 << ")";
}
return 0;
}<span />