Задать вопрос!

Задать вопрос!

Все категории

1 год назад

10

Помогите пожалуйста с задачей на паскаль 20.2 Заранее спасибо)

Помогите пожалуйста с задачей на паскаль 20.2
Заранее спасибо)

Информатика

1 ответ:

Мусажан1 год назад

0 0

Написано на Паскале. Все работает, можешь сам проверить

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

Помогите . Напишите программу полностью на Паскале

kakchelovek [2.1K]

program zadacha;

var i:integer; stroka:string;

begin

readln(stroka);

for i:=1 to Length(stroka) do

if stroka[i]<>chr(ord(32)) then

write(stroka[i])

else

break;

end.

0 0

4 года назад

1.Запишите правильный вариант фрагмента программы,подчеркните место,в которых допущены ошибки if a > b then begin a:= b ; end

123345667

1) <span>if a > b then begin a:= b ; end else b:=a;
Вот правильный вариант еnd; был лишний так как еще одного begin не было
2)
Var s:integer;k:real;
begin
s:=255;if s mod 2=1 then begin s:= s-1 ;k:= s/2 end
else k:=s ;writeln(k)
end.
Тут у вас ; с запятой были потеряны после исправления ответ 127</span>

0 0

4 года назад

Дан массив целых чисел размера N.Проверить,образуют ли его эелменты,перечисленые в том же порядке,геометрическую прогрессию.Если

BiGRASH [1]

//Pascal ABC.NET v3.1 сборка 1172

Const
n=4;

Var
ar:array[1..n] of integer;
i,j:integer;
k:real;
begin
writeln('Array:');
for i:=1 to n do
readln(ar[i]);
k:=ar[1]/ar[2];
for i:=1 to n-1 do
if ar[i]/ar[i+1]<>k then
begin
writeln('No');
exit;
end;
writeln('Yup');
end.

Пример ввода:
1
2
4
8
Пример вывода:
Yup

0 0

4 года назад

Файл размером 192 Кбайт передается через некоторое соединение со скоростью 256 бит в секунду . Определите размер файла (в Кбайт)

Марина47

192 Кбайт=196608 байт
256 бит=32 байт
1)196608/32=6144 секунды
2)6144*96=589824 бит/8=73728 байт/1024=72 Кбайта

0 0

4 года назад

Помогите плиз пжпжпжпжпжпжпжпп

Руслан Александро... [7]

Ответ: А
так как калькулятор предназначе для работы с арефмитическими числами

0 0

4 года назад