Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and(x>=2)
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 3
y = 2
Да
//Pascal ABC.NET v3.1 сборка 1172
var
n, m: integer;
begin
read(n, m);
repeat
writeln('Текущее значение N:', n, ' ,до m:', m - n);
inc(n);
until n = m;
writeln('Завершено, n=m');
end.
Пример ввода:
12
20
Пример вывода:
Текущее значение N:12 ,до m:8
Текущее значение N:13 ,до m:7
Текущее значение N:14 ,до m:6
Текущее значение N:15 ,до m:5
Текущее значение N:16 ,до m:4
Текущее значение N:17 ,до m:3
Текущее значение N:18 ,до m:2
Текущее значение N:19 ,до m:1
Завершено, n=m
1)
1) Но ты учти, что массив заполняется рандомна и числа в промежутке от 0 до 100, если хочешь больше, то анологию надеюсь понял
var a:array [1..10] of integer;i,k,f:integer;beginfor i:=1 to 10 do begina[i]:=random(101);end;write (a,' ');
writeln;k:=0;f:=0;
for i:=1 to 10 do beginif a[i]=3 thenk:=k+a[i];if (a[i]>9) and (a[i]<101) thenf:=a[i] mod 10;if f=3 thenk:=k+a[i];end;writeln (k);end.
Расширение файла 1) ppt.
Расширение файла отделяется от имени файла точкой.
<u>1</u> 30 <u>435</u> 4060 <u>27405</u> 142506 <u>593775</u> 2035800 <u>5852925</u> 14307150 <u>30045015</u> 54627300 <u>86493225</u> 119759850 <u>145422675</u> 155117520 <u>145422675</u> 119759850 <u>86493225</u> 54627300 <u>30045015</u> 14307150 <u>5852925</u> 2035800 <u>593775</u> 142506 <u>27405</u> 4060 <u>435</u> 30 <u>1</u>
Это 30-я строка треугольника Паскаля, расчитанная онлайн на сайтеhttp://calcsbox.com/post/treugolnik-paskala.html. Жирным шрифтом с подчёркиванием выделены все нечётные цифры. Всего их 16.
Ответ: 16.
P.S. На 32-ой строчке ответ 2; на 31-ой строчке ответ 32.