Uses crt;
const N=10;
var a:array [1..N] of integer;
x,k:integer;
begin
k:=0;
for x:=1 to 10 do
begin
a[x]:=random(1000)+1;
writeln('a[',x,']:',a[x]);
if (a[x]>=100) and (a[x]<=999) then
if (a[x] mod 10=7) or (a[x] div 100=7)
or (a[x] div 10 mod 10=7) then inc(k);
end;
writeln('Количество трехзначных элементов, содержащих цифру 7:',k);
<span>end.</span>
Еелплдадвжкждккдадажжадададпжпдададаадпдеддаажажажажад
1 Прежде всего, это сочетание звуковой и графической информации.
2Предметные модели позволяют представить в материальной наглядной форме объекты и процессы, недоступные для непосредственного исследования (очень большие или очень маленькие объекты, очень быстрые или очень медленные процессы и др.).
Макеты зданий и сооружений позволяют архитекторам выбрать наилучшие градостроительные решения, модели самолетов и кораблей позволяют инженерам выбрать их оптимальную форму.
3...
4 Моделирование представляет собой один из основных методов познания, является формой отражения действительности и заключается в выяснении или воспроизведении тех или иных свойств реальных объектов, предметов и явлений с помощью других объектов, процессов, явлений, либо с помощью абстрактного описания в виде изображения, плана, карты, совокупности уравнений, алгоритмов и программ
Если это Паскаль, то вот:
program prog1;
var h, a: integer;
P, b, S: real;
begin
write('Высота=');
readln(h);
write('Основание=');
readln(a);
S:=h*a/2;
b:=sqrt((a/2)*(a/2)+h*h);
P:=b+b+a;
writeln('Периметр= ',P);
writeln('Площадь= ',S);
end.
План
1.Мальчик получил двойку.
2. Мама и сестра огорчены.
3. Младший брат и собака все равно рады видеть мальчика.
4.Делу время, потехи час.
Главный герой - школьник.
Мальчик никогда не успевал делать домашнее задание. Мама не удивлялась двойками.
