Это на С++:
#include <stdio.h>
int main ()
{
int a = 0, b = 0, c = 0;
scanf ("%d %d %d", &a, &b, &c);
printf ("%d+%d+%d=%d\n", a, b, c, a+b+c);
printf ("%d*%d*%d=%d\n", a, b, c, a*b*c);
printf ("(%d+%d+%d)/3=%f", a, b, c, (a+b+c)/3.0);
}
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(30,1,20); a.Println;
Writeln('Элементов, оканчивающихся цифрой 8- ',
a.Where(x->x mod 10=8).Count)
end.
<u>Пример</u>
1 3 20 17 2 5 3 14 18 1 13 3 8 9 5 19 19 3 19 20 2 12 20 13 7 5 10 9 1 20
Элементов, оканчивающихся цифрой 8- 2
В семиричной системе максимальное двухзначное число равно 7²-1, т.е.. 48.
В шестиричной системе минимальное трехзначное число равно 6², т.е. 36.
Отсюда получаем условие 36≤n≤48
В одиннадцатиричной системе в этот диапазон попадают числа от 11х3+3=36 до 11х4+4=48. Но, поскольку число в этой системе должно оканчиваться двойкой, нам подходит вариант 11х4+2=46
46₁₀ = 42₁₁ = 64₇ = 114₆
program abc;
var a,b,c:integer;
begin
writeln('Заштрихованная область=x,y');
end.
1)
program hello_world;
var n, i: integer;
begin
write('Введите число ');
read(n);
for i:= 1 to n do write(i, ' ')
end.
2)
program hello_my_world;
var a,b, i: integer;
begin
write('Введите числа A и B ');
read(a, b);
for i:=a to b do write(i, ' ')
end.