1). дано целое число х. составьте программу которая выясняет верно ли что 0 больше или равно х и больше 1. 2). дано целое число п. составьте программу которая выясняет является им значение п кратное 3.
Условие первой программы не совсем понятно. Вот вторая: Program atg; var p:integer; begin readln(p); writeln('число=',p); if p mod 3=0 then writeln('число кратно 3') else writeln('число не кратно 3'); end.
На моем любимом бейсике Dim A() As Integer, i As Integer, k As Integer, N As Integer Randomize Print "N = "; : Input N ReDim A(N, N) For i = 1 To N For k = 1 To N A(i, k) = Int(Rnd(1)*10) + 1 ' Заполняем матрицу случайными числами от 1 до 10 Print A(i, k) & CHR(9); ' Выводим начальную матрицу через табуляцию Next k Print ' Переход на следующую строку вывода Next i Print : Print ' Опускаемся на 2 строки For i = 1 To N For k = 1 To N If k >= i Then A(i, k) = 1 ' Заполняем единицами нужную область Rem У области выше главной диагонали номер столбца больше строки Print A(i, k) & CHR(9); ' Выводим конечную матрицу через табуляцию Next k Print ' Переход на следующую строку вывода Next i End
Dim A(100) As Integer, Odin As Boolean Dim k As Integer , i As Integer Randomize For i = 1 To 100 A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100 Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию Next i Print "Повторяющиеся элементы" For i = 1 To 100 For k = i+1 To 100 If A(i) = A(k) Then Print A(i) & CHR(9); Next k Next i Print "Не повторяющиеся элементы" For i = 1 To 100 Odin = True For k = i+1 To 100 If A(i) = A(k) Then Odin = False Next k If Odin = True Then Print A(i) & CHR(9); Next i End
Program atg;
var p:integer;
begin
readln(p);
writeln('число=',p);
if p mod 3=0 then
writeln('число кратно 3') else
writeln('число не кратно 3');
end.