elenaneretina
?>

Нужна по информатике, программа в паскаль..в массиве хранится о численности книг в каждом из 35 разделов библиотеки. выяснить, верно ли, что общее число книг в библиотеке есть шестезначное число?

Информатика

Ответы

Матвеев
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(35,100,50000); a.Println;
  var k:=a.Sum;
  Write('Всего книг ',k);
  if (k>=1000000) and (k<=9999999) then
    Writeln(' - шестизначное число')
  else Writeln(' - не шестизначное число')
end.

Тестовые решения:
44847 40059 3938 43998 48227 2295 18961 36991 30123 41620 22198 13146 38442 8318 35835 49112 33119 4617 20383 19164 6367 30588 40391 31807 32046 49835 4990 817 31748 21075 16466 17557 44413 12879 803
Всего книг 897175 - не шестизначное число

36802 44900 5012 30120 29288 21787 24640 41798 38286 34288 3756 5543 765 28259 26754 29598 15994 40577 26492 10557 41597 48459 13095 29019 30351 47939 35197 10527 43439 21960 40977 41831 43125 48076 10234
Всего книг 1001042 - шестизначное число
ogonizoloto
1. a; c
2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/
3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы.
Исправление:
program prim_a;
var m, n, k: integer;

begin
writeln('введите значения переменных m, n и k');
read(m,n, k);
writeln((m+n+k)*5);
end.
4. a) 
program plowad;
var
a, h: real;

begin
writeln('Введите основание треугольника и высоту');
readln(a, h);
writeln('Площадь треугольника равна ', a*h/2);
end.
5. program proizvedenie;
var 
a, b: integer;

begin
writeln('Введите двузначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
writeln('Произведение цифр двузначного числа равно ', a*b);
end.
VladimirBorisovich
1)
a) не может, потому что переменные должны всегда начинаться с буквы
b) может
c) не может, слова могут быть разделены только знаком "_",не пробелом!
d) может

2) присваивание, обозначается знаком "="
Например:
sum = 0;

3) 
4 строка - не red, а read
пропущена трока между 2 и 3 строчкой - это begin

4)
var
     S, P, a, b: integer
begin
     write('Введите сторону а: ');
     readln(a);
     write('Введите сторону b: ');
     readln(b);
     
     S = a * b; {нахидим площадь}
     P = (a + b) * 2; {находим периметр}

     writeln('Площадь = ', S, ', периметр = ', P);
end.

5)
Var
     number, {Трехзначное число}
     num1, {Первая крайняя цифра}
     num2, {Вотрая крайняя цифра}
     : integer;
Begin
     write('Введите число');
    readln(number);
   
     num1 = number mod 10;
     num2 = number div 100;
    
     writeln('Сумма крайних цифр числа ', number, ' = ', num1 + num2);
End.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Нужна по информатике, программа в паскаль..в массиве хранится о численности книг в каждом из 35 разделов библиотеки. выяснить, верно ли, что общее число книг в библиотеке есть шестезначное число?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

set907
Rjkjneirbyf555
andrew409
modellisimo-a
pechyclava
yulyazhdan
inainainainaina0073
Аверьянова
ShALIGINA
uchpapt
cheberyako2013
Abdulganieva1367
tarja4140
ortopediya
Ekaterina1654