Полный код на паскале
var
i: integer;
s: real;
begin
s := 0;
for i := 12 to 2001 do
s := s + i;
writeln(s);
s := 1;
for i := 2 to 201 do
s := s * i / (i + 2);
writeln(s);
s := 1;
for i := 1 to 33 do
if i mod 3 = 0 then s := s * 2;
writeln(s);
s := 2;
i := 10;
while i <= 13 do
begin
s := s + 11;
i := i + 1;
end;
writeln(s);
end.
Вывод программы и ответы соответственно
2002935
0.000146320050724284
2048
46
#include <iostream>
using namespace std;
int main() {
int x, n;
int res = 0;
cout << "Введите два числа: ";
cin >> x >> n;
for (int i = 1; i <= x; i++)
res += n;
cout << endl << x << " * " << n << " = " << res << endl;
return 0;
}
Ответ:
216 кодов
Объяснение:
Коды, используемые Юрой, имеют вид Х***, *X**, **X*, ***X или ****, где на месте Х может стоять любая из 2 гласных букв. Рассмотрим 1 вариант Х*** - это 2*4*3*2=48 (1 из 2-х гласных, 1 из 4-х согл., 1 из 3-х согл., 1 из 2-х согл.). Всего таких 4 варианта 48*4=192, а последний вариант **** - это 4*3*2*1=24. Итого 192+24=216.
Var
max, //максимальный элемент
min, //минимальный элемент
sum, //сумма всех чисел
n, //количество чисел
j: integer;
Begin
write('Введите количество чисел: ');
readln(n);
write('Введите числа: ');
readln(j);
max:=j; min:=j; sum:=j; //1-й элемент это мин, макс, и сумма одновременно
for var i:=2 to n do begin
readln(j);
if(j > max) then max:=j
else if(j < min) then min:=j;
sum:= sum+j;
end;
sum:= round(sum/n)*min-max; //результирующая формула
if sum < 0 then writeln('Результат: ', -sum)//умножаем на -1 если результат<0
else writeln('Результат: ', sum);
End.
Var x, y: real;
begin
writeln('Введите координаты точки x, y');
read(x, y);
if abs(x - 4) + abs(y - 4) <= 3 then writeln('Принадлежит')
else writeln('Не принадлежит')
end.