М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
мммм1984
мммм1984
21.02.2021 22:14 •  Информатика

Синфой. именно на языке ! 8. напишите процедуру, которая принимает параметр – натуральное число n – и выводит на экран квадрат из звездочек со стороной n.

👇
Ответ:
ДАШУНЯ1311
ДАШУНЯ1311
21.02.2021
Procedure wr( ch: char; c: integer );
var i: integer; 
begin for i := 1 to c do write(ch); end;
procedure  square( n: integer );
var i: integer;
begin wr( '*', n ); writeln;
for i := 2 to n-1 do begin write( '*' ); wr( ' ' ); writeln( '*' ); end;
wr( '*', n ); writeln; end;
4,6(77 оценок)
Открыть все ответы
Ответ:
samyi116umni
samyi116umni
21.02.2021
1) посчитать сумму всех нечетных чисел от 230 до 430
// PascalABC.NET 3.0, сборка 1088
var
  i,s:integer;
begin
  i:=231; s:=0;
  repeat
    s:=s+i; i:=i+2
  until i>400;
  Writeln('Сумма нечетных чисел на интервале [230;400]: ',s)
end.

Результат выполнения программы:
Сумма нечетных чисел на интервале [230;400]: 26775

2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать
// PascalABC.NET 3.0, сборка 1088
var
  i:integer;
begin
  i:=900;
  repeat
    Write('(',i:3,',',sqrt(i):9:5,') ');
    i:=i-7
  until i<0;
  Writeln;
end.

Результат выполнения программы:
(900, 30.00000) (893, 29.88311) (886, 29.76575) (879, 29.64793)
(872, 29.52965) (865, 29.41088) (858, 29.29164) (851, 29.17190)
(844, 29.05168) (837, 28.93095) (830, 28.80972) (823, 28.68798)
... часть строк пропущена
(130, 11.40175) (123, 11.09054) (116, 10.77033) (109, 10.44031)
(102, 10.09950) ( 95,  9.74679) ( 88,  9.38083) ( 81,  9.00000)
( 74,  8.60233) ( 67,  8.18535) ( 60,  7.74597) ( 53,  7.28011)
( 46,  6.78233) ( 39,  6.24500) ( 32,  5.65685) ( 25,  5.00000)
( 18,  4.24264) ( 11,  3.31662) (  4,  2.00000)

3) найти сумму чисел шестизначного числа
// PascalABC.NET 3.0, сборка 1088
var
  n:longint;
  s:integer;
begin
  Write('n='); Read(n);
  repeat
    s:=s + (n mod 10);
    n:=n div 10
  until n=0;
  Writeln('Сумма цифр числа равна ',s)
end.

Тестовое решение:
n=472305
Сумма цифр числа равна 21
4,7(61 оценок)
Ответ:
glebsemenov86
glebsemenov86
21.02.2021
Двоеточие - это часть команды (оператора), который называется оператор присваивания. В данном контексте всегда используется два символа ":=". Команда присваивания y:=y-x означает, что берутся текущие значения переменных x и y, находится их разность, после чего результат записывается (говорят - "присваивается") переменной y. Например, если значение y было задано y:=20; а x:=1; то новое значение переменной y будет равно 20-1=19.
В команде x:=x*2 все аналогично. Берется текущее (установленное ранее) значение переменной x, умножается на 2, а результат этого умножения становится новым значением переменой x. Старое значение при этом безвозвратно теряется.
4,4(95 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ