В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Аркадичка
Аркадичка
14.01.2020 17:03 •  Информатика

Построение воздушного шара по 7 точкам координаты a1 (x,y); ; а(; а4(x+12h,y-h); ; ;

Показать ответ
Ответ:
slavioglokolea77
slavioglokolea77
18.11.2020 17:19

1 Задание

Вводим переменные x и y.

Переменная k -количество равно нулю и i равно единице.                            

         repeat

         k:=k+1;

         i:=i+2;

      until i>=(x+y)

2 Задание

Program SpecialHappyTickets;


var

 i, j, k, l, m, n, s: integer;


begin

 s := 0;

 for i := 0 to 9 do

   for j := 0 to 9 do

     for k := 0 to 9 do

       for l := 0 to 9 do

         for m := 0 to 9 do

           for n := 0 to 9 do

             if (i + j + k) = (l + m + n) then

               if i + j + k = 13 then s := s + 1;

 Writeln(s)

end.


program SpecialHappyTickets;


var

 i, j, k, l, m, n, s: integer;


begin

 s := 0;

 for i := 0 to 9 do

   for j := 0 to 9 do

     for k := 0 to 9 do

       for l := 0 to 9 do

         for m := 0 to 9 do

           for n := 0 to 9 do

             if (i + j + k) = (l + m + n) then

               if i + j + k = 13 then s := s + 1;

 Writeln(s)

end.

Результат выполнения программы:

5625

3 Задание

var a,i:integer; b:boolean;

begin

a:=1;

repeat

b:=true;

for i:=2 to 6 do

 b:=b and (a mod i = (i-1));

if not b then a:=a+1;

until b;

writeln('a = ',a);

end.

Результат:

a = 59

4 Задание

Program summa;

var a,x:integer; 

i,s:integer;

begin 

writeln('введите целое число');

 readln( a );

 x:=a; 

s:=0; 

while ( x<>0 ) do  begin   s := s + (x mod 10); 

 x := x div 10; 

end;

writeln( 'Сумма цифр числа ',a,' = ', s );

end.

5 Задание

1. Количество нулей в конце числа равно количеству десяток в этом числе. Поскольку число 10 состоит из двух простых множителей: 2 и 5, то в конце числа будет столько же нулей, сколько пятерок в числе (т. к. двоек в 100! намного больше).

  2. Найдем число пятерок в 100! Среди чисел от 1 до 100:

1) 5^3 - нет;

2) 5^2 - 25; 50; 75 и 100 - 4 числа;

3) кратных 5: 100/5 = 20 чисел.

6 Задание

const n=8;

var a:array[1..n] of integer;

   i,z:integer;

begin

z:=1;

for i:=1 to n do

begin

 a[i]:=z*(2*i-1);

 write(a[i],' ');

 z:=-z;

end;

end.

7 Задание

var i,n:integer;

begin

write ('количество раз');

readln(n);

for i:=1 to n do

 write(0);

end.

0,0(0 оценок)
Ответ:
1234567890dd
1234567890dd
27.08.2022 00:29
1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота