4 года назад

Выведите на экран, все четные числа от 35 до 117 и нечетные чиcла, лежащие в диапазоне от 45 до 99

1 ответ:

metida [134]4 года назад

0 0

Var i: integer;
beginfor i:=35 to 117 doif (i mod 2=0) then write(i:4);writeln;writeln;for i:=45 to 99 doif (i mod 2<>0) then write(i:4);end.

Читайте также

Заданы три числа-x,y,z найти минимальное из этих чисел результат записать в переменную p Помогите пожалуйста

MouShn [238]

Program hdjj;
Var z,x,y,p
Begin
Writeln('');
Read(x,z,y);
If (x<y) and (x<z) then p:=x;
Writeln(p);
End;
If (z<y) and (z<x) then p:=z;
Writeln(p);
End;
If (y<x) and (y<z) then p:=x;
Writeln(p);
End.

0 0

4 года назад

Напечатать в возрастающем порядке все цифры, не входящие в запись данного натурального числа.(ПАСКАЛЬ) срочно помогите

sokos

===== PascalABC.NET =====

begin

var n: int64;

Print('Введите натуральное число:');

Read(n);

var a := ArrFill(10, False);

while n > 0 do

begin

a[n mod 10] := True;

n := n div 10

end;

Print('В числе отсутствуют цифры');

for var i := 0 to 9 do

if not a[i] then

Print(i);

end.

0 0

4 года назад

Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел А[M,N], где M,N<=10. В каждой строке

Юрик52 [35]

Uses crt;
var a : array [1..10, 1..10] of integer ;
i,j,n,m:byte;
min,s:integer;
begin
s:=1;
randomize;
writeln('Введи кол-во строк(<10)');
readln(n);
writeln('Введи кол-во столбцов(<10)');
readln(m);
for j:=1 to m do
for i:=1 to n do begin
a[i,j]:=random(100);
gotoxy((i-1)*5+1,j+5);
writeln(a[i,j]);
end;
for i:=1 to m do begin
min:=a[1,i];
for j:=1 to n do if a[j,i]<min then min:=a[j,i];
gotoxy((i-1)*3+1,i+12);
write('min в ',i,' строке равен ',min);
s:=min*s;
end;
gotoxy(1,23);
writeln(s);
<span>end.</span>

0 0

4 года назад

Рисунок размером 512 х 128 точек раскрашен в 256 цветов. Найдите объём памяти (в Килобайтах), необходимый для хранения этого рис

mariya56 [17]

$N= 2^{i}$
$256= 2^{i}$
i=8 бит
V = 8*512*128 бит = 512*128 байт = 128/2 Кбайт = 64 Кбайт
Отв: 64 Кбайт

0 0

4 года назад

Сделайте программу паскаль АВС 1) Даны стороны треугольника. Найти его периметр. 2) Известна стоимость 1 кг конфет, печенья и я

milaffka666

2)
var a,b,c,x,y,z,s:real;
begin
writeln('Введите стоимость 1 кг конфет, печенья и яблок:');
readln(a,b,c);
writeln('Введите вес конфет, печенья и яблок:');
readln(x,y,z);
s:=a*x+b*y+c*z;
writeln('Стоимость всей покупки = ',s);
end.

Пример:
Введите стоимость 1 кг конфет, печенья и яблок:
215 150 60
Введите вес конфет, печенья и яблок:
0.5 2 3.5
Стоимость всей покупки = 617.5

3)
var b,s:real;
begin
write('b = ');
readln(b);
s:=b*30/1.5;
writeln('s = ',s);
end.

Пример:
b = 2
s = 40

0 0

4 года назад

Прочитать ещё 2 ответа