Var
i,s:integer;
mas : array [1..20] of integer;
begin
randomize ;
for i:=1 to 20 do
mas[i]:=random (100);
s:=0;
for i:=1 to 20 do
if mas[i] mod 5 = 0 then
s:=s+mas[i];
writeln('sum',s);
end.
Здесь всё просто нужно:
Добавить два числа и посчитать нули : 101112+100102 = 201214 Всего 1 нуль.
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication7
{
class Program
{
static void Main(string[] args)
{
for (int i = 5; i >= 1; i--)
{
for (int j = i; j >= 1; j--)
{
Console.Write(j);
}
Console.WriteLine();
}
Console.ReadKey();
}
}
}
(c) понятность это-<span>разборчивость, ясность, вразумительность, отчетливость, внятность, доходчивость, доступность, общепонятность.
(а)моссовость это отношение к алгоритмам это правильно,, (б)результативность тоже самое на результат чтобы хорошо выполнить
(д)точность это</span><span>коммуникативное качество речи, возникающее как соответствие смысловой стороны речи предметно-вещной действительности и/ли системе выражаемых понятий...
я думаю под (с) а там сам решай опр. дал
</span>
Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале