Регистрация
irochka320969
02.07.2021 18:34
Информатика
Есть ответ 👍

Надо перевести с языка програмирования с++ на язык pascalabc, вот код #include main(){ freopen("input.txt","r",stdin); freopen("output.txt","w",stdout); int a,c=0,i; char s[35]; scanf("%i",& a); for (i=0; i scanf("%s",& s); if (s[0]==s[3]) c++; } printf("%i",c); return 0; } ниже почти та же, ток ошибка там есть, он вместо 3 выводит 6 #include using namespace std; int main() { freopen("input.txt", "r", stdin); freopen("output.txt", "w", stdout); int n, k = 0; char s1[1000]; cin > > n; for(int i = 0; i < n + 1; ++i) { cin.getline(s1, 1000); for(int j = 0; j < 999; ++j) if(s1[0] == 'a') if(s1[j + 1] == 'a') k++; } cout < < k; return 0; }

172
369
Посмотреть ответы 2

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

Sofa2021
Sofa2021
4,7(18 оценок)
1) первый код не совсем полный в части цикла 2) var n, k, i, j: integer;     s1: array[0..999] of char; begin   assign(input, 'input.txt'); reset(input);   assign(output, 'output.txt'); rewrite(output);   k : = 0;   for i : = 0 to n do   begin     for j : = 0 to 999 do       read(s1[j]);     readln;     for j : = 0 to 998 do     begin       if (s1[0] = 'a') and (s1[j + 1] = 'a') then           inc(k);     end;   end;   write(k); end.
ladysackulina
ladysackulina
4,5(1 оценок)
16 =  i = 4 (объем одного символа) 4 * 80 = 320 бит ответ :   320   бит

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