1) var i,d,q:integer;
begin
d:=1;
for q:=5 downto 1 do {можно и for q:=1 to 5 do но у вашем примере идет на спад , я сделал так же}
d:=d+q;
writeln(q,' ',d);
end.
2) var i,d,q:integer;
begin
d:=1;
for q:=4 downto 1 do
d:=d+q;
writeln(q,' ',d);
<span>end.
3) Здесь вовсе не нужен цикл , всеравно переменная станет 1(еденицей)
var i,d,q:integer;
begin
d:=1;
q:=1;
d:=d+q;
writeln(q,' ',d);
<span>end.
4) Будет зацикленость , поскольку не зименяется значение q (либо ошибка в условии)
А так как нет изменений то и переработать нельзя в цикл for</span></span>
Пётр удалил 14 страниц. Сначала ноходим общее количество элементов на всех страницах = 24000. Тоесть однобайтовий документ имеет размер 24000б, а двубайтовый 48000б. Если в однобайтовому фаеле изменить число строк на 30, то 30+30 = 60, получаем размер файла 48000. Потом отнимаем от 48000 число 31500, получаем 16500б - это количество символов на тех страницах которые остались. Далее делим на 2400 - количество символов на 1 странице. Мы получили 6 страниц, тоесть 14 страниц Пётр удалил.
#include <iostream>
#include <string>
using namespace std;
bool isb(char t)
{
bool f=false;
string dic="abcdefghijklmnopqrstuvwxyz1234567890";
for(int i=0;i<dic.size();i++)
if(dic[i]==t)
return !f;
return f;
}
int main()
{
string s;
int i=0;
getline(cin,s);
while(i<s.size())
{
if(isb(s[i]))
{
s.insert(i,1,s[i]);
i++;
}
i++;
}
cout<<s<<endl;
return 0;
}