Срочно помогите пожалуйста

Безотлагательно помогите пожалуйста

Задать свой вопрос
Алексей Стригун
Язык сможете сказатьь?
Вера Ведененкова
паскаль
Ромик Титонов
Когда его теснее забудут
Руслан Гитлиц
Ок подожди
Артём Башлыкин
никогда в школе с ним ещё ебут
Данька Сухоставцев
write(s[i]);
Kamilla Zeikina
стери
Zhenek
хорошо, спасибо огромное
1 ответ

Ответ:var

k,i,x,y,l:integer;

a:array[1..10] of integer;

s:string;

begin

readln(k);

str(k,s);

l:=0;

for i:=1 to length(s) do

begin

write(s[i]);  

inc(l);

val(s[i],a[i],y);

end;

writeln;

if ( (a[1]+a[2]+a[3]+a[4]gt;10) and (a[1]+a[2]+a[3]+a[4]lt;20) ) then

Writeln('Yes')

else Writeln('No');

readln;

end.

Разъяснение:Надеюсь так

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт