4 года назад

Заполните пожалуйста !

Знания

Информатика

1 ответ:

Марина Блахина4 года назад

0 0

01110111
10001000
00001000

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

1) напишите программу которое вводит натуральное число"n" и находит сумму всех натуральных чисел от 1 до n (цикл пока). 2)напиши

Rameel

1.
Var
a,n:integer;
Begin
write('Введите число n ');
Readln(n);
while a<=n do
Begin
write(a,' ');
a:=a+1;
End;
End.
2.
Var
a,n,d:integer;
Begin
d:=2;
write('Введите число n ');
Readln(n);
while a<n do
Begin
write(d,' ');
d:=d+2;
a:=a+1;
End;
End.
3.
Var
a,b:integer;
Begin
write('Введите числа a и b: ');
Readln(a,b);
while a<=b do
Begin
writeln(a,'^2 = ',sqr(a),' ');
a:=a+1;
End;
End.

0 0

4 года назад

ПОМОГИ ПЛИЗЗЗЗЗ На одной улице стоят в ряд 4 дома,в каждом из них живет по одному человеку.Их зовут Алексей,Егор,Виктор и Михаи

Виталий Б

Алексей - рыбак, Егор - фермер, Виктор - ветеринар, а Михаил пчеловод.

Живут они так: МЕАВ

0 0

4 года назад

Дана строка, состоящая из 50 символов. Составьте программу, используя процедуру которая определяет сколько раз встречается в стр

Краевская Кристина

Var s:string;k:integer;

procedure SubInc(var s:string;var k:integer);
begin;
while pos('ea',s)<>0 do
begin;
delete(s,pos('ea',s),2);
inc(k);
end;
end;

begin;
readln(s);
if length(s)<>10 then exit;
SubInc(s,k);
writeln(k);
end.

0 0

4 года назад

Составьте программу, которая заполняет массив a [1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее ари

Лизок96 [14]

Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.

0 0

1 год назад

Дана символьная строка всюду букву А поменять на букву В. Pascal.ПОмогите составить программку! Срочно нужно парни и девушки!зар

ktubjy [10]

var

0 0

4 года назад