Регистрация
Tanushagood
16.03.2021 15:18
Информатика
Есть ответ 👍

Что будет выведено на экран в результате
выполнения программы:
var ss:string; c:char;

begin

ss:= 'studentka';

for c:='s' to 'u' do

delete(ss,pos(c,ss),2);

write(ss); readln;

end.

272
342
Посмотреть ответы 1

Ответы на вопрос:

Геймеr228
Геймеr228
4,6(20 оценок)

program test; var number: integer; begin    write('enter the number: ');     readln(number);     case number mod 10 of      1: writeln(number, ' рубль');       2, 3, 4: writeln(number, ' рубля');     else      writeln(number, ' рублей')    end;     readln; end.

Популярно: Информатика