Помогите срочно нааадо! Умоляю!

Знания

Информатика

1 ответ:

Японец3 года назад

0 0

Смотреть фото, удачи тебе))

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

Самым распространенным носителем информации а также и средством сохранения в конце 20 века являлось

Татьяна Ромашова

Дискета? или бумага. но бумага вроде больше подходит, потому что дискета появилась лишь в 1970-1990 году

0 0

4 года назад

Нужно найти цепи и цикл

Pprt456 [7]

Цепи Е,В,Б а все остальные цикл

0 0

4 года назад

Написать программу которая покажет количество символов в введенном слове и проверяет не совподает ли вторая и предпоследняя букв

statted [115]

Var s:string;
begin
write ('Введите слово: '); read(s);
writeln('Количество символов в слове = ',length(s));
if s[2] = s[length(s)-1] then writeln('Вторая и предпоследняя буквы совпадают') else <span>writeln('Вторая и предпоследняя буквы не совпадают');
end.</span>

0 0

4 года назад

Элементы двухмерного массива размером 10 Х 10 первоначально равны 1.Затем значения некоторых из них меняют с помощью следующего

Андрей Корнеев

Program gt;
var a:array[1..10,1..10]of integer;
n,k,p:integer;
begin
p:=0;
for n:=1 to 10 do
for k:=1 to 10 do
a[n,k]:=1;
for n:=1 to 4 do
for k:=1 to n+1 do
begin
A[n,k]:=A[n,k]-1;
A[k,n]:=A[k,n]-1;
end;
for n:=1 to 10 do
begin
for k:=1 to 10 do
begin
write(a[n,k]:3,' ');
if(a[n,k]=0)then p:=p+1;
end;
writeln;
end;
writeln(p);
<span>end.
ответ:8</span>

0 0

4 года назад

дана последовательность операторов a=1 b=1 while a<2 do begin b:=b+2 end s= a+b сколько раз выполнится цикл найдите конечн

bezkor69

Если всё так как написанно, то программа вообще не скомпилируется. Должно быть

a:=1;b:=1;

while a<2 do

begin

b:=b+2;
end;

s:=a+b;

в теле цикла переменная а не изменяется, поэтому цикл будет бесконечным. То есть пока Ctrl-Break не нажмешь будет кажаться что программа зависла.

0 0

4 года назад