Ошибка ввода. Программа завершена (Program1.pas, строка 5) program pr; var a,b,c: real; begin writeln('введите 3 числа'); readln(a,b,c); writeln('a+b=;a*b'); end.
1) Pygame - Библиотека Python, предназначенная для создания игр и мультимедийных приложений. Базируется на библиотеке для мультимедийных приложений SDL. Написана на языке С
2) Для использования библиотеки PyGame нужно установить её с менеджера пакетов Python и импортировать в свой проект
cmd: pip install pygame
project.py: import pygame ИЛИ from pygame import *
3) Библиотека PyGame содержит класс pygame.Color, отвечающий за работу с цветами
Так же класс pygame.Surface имеет некоторые методы, позволяющие изменять его цвет.
Объяснение:
Более подробную информацию вы можете найти на официальной странице Pygame.
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.Rows.SelectMany(t->t).Where(t->t mod 8=0); Writeln(s.Sum,' - сумма ',s.Count,' чисел(числа), кратных 8') end.
1) Pygame - Библиотека Python, предназначенная для создания игр и мультимедийных приложений. Базируется на библиотеке для мультимедийных приложений SDL. Написана на языке С
2) Для использования библиотеки PyGame нужно установить её с менеджера пакетов Python и импортировать в свой проект
cmd: pip install pygame
project.py: import pygame ИЛИ from pygame import *
3) Библиотека PyGame содержит класс pygame.Color, отвечающий за работу с цветами
Так же класс pygame.Surface имеет некоторые методы, позволяющие изменять его цвет.
Объяснение:
Более подробную информацию вы можете найти на официальной странице Pygame.
// Внимание! Если программа не работает, обновите версию!
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.Rows.SelectMany(t->t).Where(t->t mod 8=0);
Writeln(s.Sum,' - сумма ',s.Count,' чисел(числа), кратных 8')
end.
Пример
Количество строк и столбцов в массиве: 6 9
*** Исходный массив [6,9] ***
-66 98 -73 -10 -14 -86 -63 -91 -79
-36 -2 -22 -3 51 59 93 36 -75
72 20 77 12 17 72 71 -41 -73
56 -33 2 -38 -60 17 -14 84 58
10 -99 -8 58 -62 -87 -15 -33 62
-94 -82 93 82 -41 -74 35 94 -84
192 - сумма 4 чисел(числа), кратных 8