// Листинг программы и скриншот результата в приложениях.
const
max_v = 15;
m1 = -20;
m2 = 50;
var i,j:byte;
v:array [1..max_v] of integer;
a,b:integer;
// начальное заполнение массива
procedure randomArray(tx:string);
var i:byte;
begin
writeln(tx);
randomize();
for i:=1 to max_v do begin
v[i]:=random(m1,m2);
write(v[i]:6);
end;
writeln('');
writeln('');
end;
begin
randomArray('Начальный массив');
writeln('Вывести все элементы,в записи которых есть цифра 5 или 7');
for i:=1 to max_v do begin
//десятки числа
a:=v[i] div 10;
//единицы числа
b:=v[i] mod 10;
if (a=7) or (a=5) or (b=7) or (b=5)
then
writeln(v[i]);
end;
end.
Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение:
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:
program N_0547847;
var
b, c, d, f, i:integer;
a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
a[i]:=random(4)+2;
write(a[i],' '); end;
writeln;
for i:=1 to 20 do begin
if a[i]=2 then b:=b+1;
if a[i]=3 then c:=c+1;
if a[i]=4 then d:=d+1;
if a[i]=5 then f:=f+1;
end;
writeln('Двоек: ', b);
writeln('Троек: ', c);
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.
24.
Буквы "ш" и "и" состоят из 3 и 2 одинаковых элементов соответственно.
Приведенный рисунок состоит из 14 элементов. Для решения задачи необходимо найти все возможные варианты получения числа 14 из 2 и 3.
1: 7*2 = 14 (соответствует 7 буквам "и")
2: 4*2+2*3 = 14 (4 "и" и 2 "ш")
и и и и ш ш, и и и ш ш и, и и ш ш и и, и ш ш и и и, ш ш и и и и
и и и ш и ш, и и ш и ш и, и ш и ш и и, ш и ш и и и
и и ш и и ш, и ш и и ш и, ш и и ш и и
и ш и и и ш, ш и и и ш и
ш и и и и ш
3: 1*2+4*3 = 14 (1 "и" и 4 "ш")
и ш ш ш ш, ш и ш ш ш, ш ш и ш ш, ш ш ш и ш, ш ш ш ш и
Итого: 1+(5+4+3+2+1)+5 = 21
Ответ: 21 способ
25.
2 = 2^1 -> 2(10) = 1(B)
4 = 2^2 -> 4(10) = 2(B)
16 = 2^4 -> 16(10) = 4(B)
32 = 2^5 -> 32(10) = 5(B)
48 = 32+16 = 2^5+2^4 -> 48(10) = 54(B) = 45(B)
50 = 32+16+2 = 2^5+2^4+2^1 -> 50(10) = 145(B) = 415(B)
1236(B) = 2^1+2^2+2^3+2^6 = 2+4+8+64 = 78(10)
Ответ: 78
26.
Элементы массива - это числа 1, 2, 3, ..., 100
Простые числа - 2, 3, 5, 7, 11, 13, 17, 19, ...
Расчет по программе - в прилагаемом файле.
На экран выведется значение num[21-2] = num[19] = 19
Ответ: 19
Int a:array[1..4, 1..4] of integer;
i, j, k: integer;
begin
k:=0;
for i:=1 to 4 do
for j:=1 to 4 do begin
readln(a[i, j]);
If (i=j) and (a[i] < 0) and (a[i] mod 2 = 0) then
k:= k+1;
end;
writeln(k);
end.
#include <iostream>
#include <cstdlib>
using namespace std;
int main(int argc, char** argv) {
float x1,x2,x3,x4,mx;
cout<<"числа через пробел"<<endl;
<span> cout<<"x1 x2 x3 x4"<<endl;
</span> cin>>x1>>x2>>x3>>x4;
mx=min(x1,min(x2,min(x3,x4)));
cout<<"минимальное число = "<<mx<<endl;
system("pause");
return(0);
}
<span>
</span>