//PascalABC.NET 3.1 сборка 1200
begin
repeat
var n := Random(1000);
if n mod (5 * 7) = 0 then begin
write(n);
Readln;
end
until false;
end.
Язык: Java
Класс назови: Help
import java.math.BigInteger;
import java.util.ArrayList;
import java.util.Scanner;
public class Help {
public static void main(String[] args) {
Scanner in = new Scanner(System.in);
ArrayList<Integer> al = new ArrayList<Integer>();
try{
for(int i = 0;;i++){
System.out.println("Вы вводите число " + i + " (Впишите любую букву или символ чтобы завершить ряд чисел) :");
al.add(in.nextInt());
}
}catch(Exception ex){
System.err.println("Ввод завершён!");
}
if(al.isEmpty()){
System.out.println("Пустой ввод!");
System.exit(0);
}
int count = 0;
for(int g:al){
if((g+"").length() == 3 && (g+"").charAt(0) == '4'){
count += g;
}
}
System.out.println("Вывод: "+count);
}
}
2) 2 Мбайт, 200 Кбайт, 1 Мбайт, 1000 Кбайт.
2 Мбайта ▬ 2048 Кбайт., 1 Мбайт ▬ 1024 Кбайт.
Var
<span>prin: boolean; </span>
<span>x, y: integer; </span>
<span>begin </span>
<span>readln(x); </span>
<span>readln(y); </span>
<span>if (x <= 0) and (x >= -3) and (y <= x + 3) then </span>
<span>prin := true </span>
<span>else if (x >= 0) and (x <= 3) and (y <= - x + 3) then </span>
<span>prin := true </span>
<span>else if (y <= 0) and (y >= -3) and (abs(x) <= 3) then </span>
<span>prin := true </span>
<span>else </span>
<span>prin := false; </span>
<span>if prin then writeln('принадлежит') else writeln('не принадлежит'); </span>
<span>end.</span>
1. Мощность здесь - это количество символов - 16.
2. Р = 01
А = 100
Д = 00
А = 100
Р = 01
ДАР
3.
C D
CCC DDD
CCD DDC
CDC DCD
DCC CDD
5. N(мощность алфав.)=4 т.к. в этих словах использованы всего 4 буквы
6. 33-я; 2-б; 13-л; 16-о; 15-н; 33-я
Яблоня