Program L;
uses crt;
var x:integer;
begin
write(' x='); readln(x);
if (x mod 3)=0 then writeln('x=',x,' делется нацело на 3')
else writeln('x=',x,' не делется нацело на 3')
<span>end.</span>
на java
public class Prog {
public static void main(String[] args) {
for (int i = 1000; i >= 1; i--) {
System.out.println(i + " * " + i + " = " + i * i);
System.out.println(i + " * " + i + " * " + i + " = " + i * i * i);
System.out.println();
}
}
}
Взять семя дерева-взять лопату-выкопать ямку-положить семя-закопать ямку-полить. Радоваться какой ты молодец :D
Program pr1;
Var A:array [1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
read (A[i]);
k:=0;
for i:=1 to 10 do
if A[i] mod 2=0 then
k:=k+1;
writeln;
writeln (k);
end.
наверное так, но лучше проверь в паскале
Var v:real;
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
while (v<=20)or(v>=220) do
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
end;
writeln('v = ',v);
end.
Пример:
<span>Введите v, v>20,v<200: 15
Введите v, v>20,v<200: 550
Введите v, v>20,v<200: 150
v = 150</span>