SCREEN 12
RANDOMIZE TIMER
FOR I = 1 TO 500
x = INT(RND * 639) + 1
y = INT(RND * 479) + 1
c = INT(RND * 15) + 1
PSET (x, y), c
NEXT I
END
У меня так получилось
a:=9
b:=3
c:=1
1. a=b - нет
2. c:=1+(a-b)
a:=a-1
b:=b+1
c:=7
a:=8
b:=4
3.a=b - нет
4.c:=4
a:=7
b:=5
5.a=b - нет
6.c:=3
a:=6
b:=6
7.a=b - да
И выведет конечный результат
a:=6
b:=6
c:=3
Var
i, p: integer;
begin
p := 2;
for i := 3 to 7 do p:=p*i;
Writeln('Произведение равно ',p);
end.
<em><u>Тестовое решение:</u></em>
Произведение равно 5040
<span>import java.util.*;
import java.lang.*;
import java.io.*;
import java.util.Scanner;
class Ideone {
public static void main (String[] args) throws java.lang.Exception {
System.out.println("Введите расстояние в метрах: ");
Scanner sc = new Scanner(System.in);
int m = sc.nextInt();
int sm = m * 100;
int dm = m * 10;
System.out.print(sm + " " + dm);
}
}</span>
// Программа и скриншот ее работы в приложениях
const
T_max=12;
var
i,j,s:byte;
m,n:byte;
T:array[1..T_max, 1..T_max]of integer;
begin
write('Введите значение m>4,n>4 для определения массива T[m,n]: ');
readln(m, n);
writeln('Заполнение массива случайными данными');
//начальные значения min и max
for i:=1 to m do begin
for j:=1 to n do begin
T[i,j]:=random(-79,79);// диапазон случайных чисел
write(T[i,j]:6);
end;
writeln();
end;
writeln();
writeln('Определить количество элементов четвертого столбца массива, меньших 5');
s:=0;
for i:=1 to m do
if (T[i,4]<5) then
s:=s+1;
writeln('Ответ: условию удовлетворяют ', s, ' элементов');
end.