Помогите что ли... Напишите на Паскале программу, которая вводит последовательно...

August 2022 1 4 Report

Помогите что ли... Напишите на Паскале программу, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет, верно ли, что все знаки элементов этой последовательности чередуются

Answers & Comments

Segrif Var
a: integer;
t,s: boolean;
begin
t := true;
read(a);
s := a > 0;
if a <> 0 then
read(a);
while t and (a <> 0) do
begin
t := (a > 0) <> s;
s := not s;
read(a)
end;
writeln(t)
end.

Answers & Comments

ekologicheskaya rol lancetnika

napishite programmu na paskale kotoraya vvodit posledovatelnost celyh chisel za706d41c51d27e0058a0ee4206ccbd6d7 36815

napishite programmu kotoraya vvodit posledovatelnost celyh chisel zakanchivayushihd246fc666a8cb4ccfcdb160362e944c0 65985

napishite programmu kotoraya vvodit posledovatelnost celyh chisel zakanchivayushihs

napishite programmu kotoraya vvodit koordinaty tochki na ploskosti i opredelyaet p6519cbb919113373d4a6514cd9a03779 87430

argument iz literatury k probleme poteri detskogo vospriyatiya mira krome natashi

pomogite pozhalujsta napisat programmu na paskaleili hotya by algoritm na tom zh

рекомендуемые вопросы

Helpful Links

Helpful Social