очень лень писать, дам направление как составлять слова из данного на языке, кстати способ очень глупый, я думаю если начнешь делать сам, то ты меня поймешь
var s,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10:string;
begin
s:='перестройка';
writeln(s[5]+s[6]+s[7]+s[8]+s[9]+s[10]+s[11]); //получится слово стройка
writeln....
ну и так далее, удачи
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
Ответ:0.1011*10*(-100)=101,1
Объяснение:
1)0,1011*10=1,011
2)1,011*(-100)=101,1
* это умножение
Если все голуби-птицы,а все птицы-животные,то все голуби являются животными:)
#include <cstdio>using namespace std;int main(){int t, cnt = 0;for(int i = 0; i < 16; ++i){scanf("%d", &t);if(t % 10 == 6) cnt++;}printf("%d", cnt);}