Завд. 15 стор. 84.
Командами модуля turtle написати першу літеру свого імені або прізвища.(А)

Q: При каком наибольшем введенном числе d после выполнения программы будет напечатано 75? var n, s, d: integer; begin readln(d); n : = 0; s : = 0; while s < = 365 do begin s : = s + d; n : = n + 5 end; write(n) end.

Нужно узнать через сколько циклов из 0 будет 75 при нарастании на 5 : 75/5 = 15Тогда составим уравнение: 365 = (s + d ) * 15 S= 0 d= 365 / 15 = 24,3(3) Исходя из того, что при 24 пройдет ещё один цикл (24*15=360), следовательно, наибольшее число это 25

Q: Автомат получат на вход пятизначное число. строиться новое десятичное число по правилам: 1. вычисляются два числа- сумма первой, третьей и пятой цифр и сумма второй и четвертой заданного числа2. полученные два числа записываются друг за другом в порядке неубывания 30, 1528, 116, 1519, 2019, 1920, 1915, 316, 2815

после прохода этого алгоритма могут получится числа 1528 116 1519 316 итого ответ 4

Q: Вквадратной таблице, не содержащей отрицательных элементов, найдите корень квадратный из произведения диагональных элементов.

Program n1;Uses CRT;Const n=5;Var a: array[1..n,1..n] of integer; i,j: integer; k,p: real;beginClrScr;randomize;p:=1;For i:=1 to n do begin For j:=1 to n do begin a[i,j]:= random(10); write(a[i,j]:2); If (i=j)or(n-i+1=j) then p:=p*a[i,j]; end; writeln; end;k:=sqrt(p);Writeln(k:4:4);readlnend.

Question 1

Завд. 15 стор. 84. Командами модуля turtle написати першу літеру свого імені або прізвища.(А)

Accepted Answer

смотря какие ну они могут испортиться

Question 2

Cтроки. паскаль. 1.задано слово - последовательность произвольных символов. сделать программу, в которой составляется слово перевертыш к данному ( символы записываются в обратной последовательности.) 2.данасимвольная строка. слово - последовательность символов между пробелами, не содержащая пробелы внутри себя.составить программу, в которой выводились бы все слова, в которых есть заданный символ.

Accepted Answer

{Первая задача}var  s, rez: string;  // строки  i: integer;  // целое число (счетчик)begin  writeln('Введите строку:');  readln(s);  //  for i := length(s) downto 1 do  // просматриваем буквы, начиная с последней    rez := rez + s[i];  // прибавляем букву к результату  writeln(rez)  // выводим результатend.

Question 3

При каком наибольшем введенном числе d после выполнения программы будет напечатано 75? var n, s, d: integer; begin readln(d); n : = 0; s : = 0; while s < = 365 do begin s : = s + d; n : = n + 5 end; write(n) end.

Accepted Answer

Нужно узнать через сколько циклов из 0 будет 75 при нарастании на 5 : 75/5 = 15Тогда составим уравнение: 365 = (s + d ) * 15 S= 0 d= 365 / 15 = 24,3(3) Исходя из того, что при 24 пройдет ещё один цикл (24*15=360), следовательно, наибольшее число это 25

Question 4

Автомат получат на вход пятизначное число. строиться новое десятичное число по правилам: 1. вычисляются два числа- сумма первой, третьей и пятой цифр и сумма второй и четвертой заданного числа2. полученные два числа записываются друг за другом в порядке неубывания 30, 1528, 116, 1519, 2019, 1920, 1915, 316, 2815

Accepted Answer

после прохода этого алгоритма могут получится числа 1528 116 1519 316 итого ответ 4

Question 5

Вквадратной таблице, не содержащей отрицательных элементов, найдите корень квадратный из произведения диагональных элементов.

Accepted Answer

Program n1;Uses CRT;Const n=5;Var a: array[1..n,1..n] of integer; i,j: integer; k,p: real;beginClrScr;randomize;p:=1;For i:=1 to n do begin For j:=1 to n do begin a[i,j]:= random(10); write(a[i,j]:2); If (i=j)or(n-i+1=j) then p:=p*a[i,j]; end; writeln; end;k:=sqrt(p);Writeln(k:4:4);readlnend.

Завд. 15 стор. 84. Командами модуля turtle написати першу літеру свого імені або прізвища.(А)

Информатика: новые вопросы

Завд. 15 стор. 84.
Командами модуля turtle написати першу літеру свого імені або прізвища.(А)