1. Створіть программу визначення вартості дзвінка по телефону. Ціна за хвилину розмови 2.30 грн. По
субботам та неділям надається знижка 20%.
AN

143

208

Посмотреть ответы 1

Ответы на вопрос:

арманп

Информатика

4,4(85 оценок)

// 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 хорошистов