1. Нарисовать прямоугольник
2. Выделить фигуру
3. Нажать на рамку фигуры один раз, чтобы стрелки изменились на те, которые в файле к заданию я прикрепила.
4. Растянуть прямоугольник за любую из двух горизонтальную стрелку
:)

0 0

4 года назад

Помогите пожалуйста!!! Известна успеваемость 13 учеников класса по 10 предметам, напишите программу с помощью которой определяет

Алина211980

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
// заполним информацию случайным образом;
// если хорошистов в результате не окажется,
// просто перезапускаем задачу
randomize;
var a:=MatrRandom(13,10,4,5); // везде только 4 и 5
for var i:=1 to 20 do // раскидаем 20 троек
a[Random(13),Random(10)]:=3;
a.Println(2); Writeln;
// собственно, решение
var k:=0;
foreach var r in a.Rows do
if r.All(x->x<>3) and not r.All(x->x=5) then k+=1;
Writeln(k,' хорошистов')
end.

Пример
5 5 4 4 4 5 3 3 4 4
5 4 4 4 3 4 5 5 4 5
5 5 5 3 5 4 4 5 5 4
3 5 4 3 4 4 5 5 5 3
5 3 4 4 5 4 4 5 5 4
3 5 5 5 5 4 4 4 4 3
4 4 5 3 5 4 4 5 4 5
4 5 4 4 4 4 4 4 5 4
3 5 3 4 4 4 4 4 5 3
5 5 4 5 4 4 4 5 4 5
4 5 4 5 4 5 3 4 5 5
4 5 4 4 4 4 5 4 4 5
4 3 5 4 4 4 5 5 3 5

3 хорошистов

0 0

4 года назад

В некотором каталоге хранился файл газета имевший полное имя C:\Сентябрь\выпуск1\газета. пользователь находившийся в этом катало

Высший Разум [2]

C:\Сентябрь\выпуск1\газета

газета - название файла, выпуск 1 и Сентябрь - подкаталоги.

Пользователь создаёт папку Вёрстка на диске С.

С:\Верстка\Газета

0 0

3 года назад