В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
liliyana27
liliyana27
29.09.2022 18:30 •  Информатика

Var i, j: Integer; S: String; Визначте, який рядок буде сформований у результаті виконання фрагмента програми: S := ''; For і:=1 To 2 do begin j := 0.1; While j<1 do begin j := j+0.3; S := S +IntToStr(j) +' ' end; Позначте одну правильну відповідь.(Кількість балів 1.00) *
А.4 0.7 1.0 0.4 0.7 1.0;
Б.1 0.4 0.7 1.0 0.1 0.4 0.7 1.0;
В.1 0.4 0.7 1.0;
Г.1 0.7 1.0 0.4 0.7 1.0;
var i, j: Integer; S: String; Визначте, який рядок буде сформований у результаті виконання фрагмента програми: For i := 1 To 2 do begin S := S + IntToStr (i); For j := 1 To 3 do S:=S + 'A';end; Позначте одну правильну відповідь. (Кількість балів 1.00) *
1AA2AA3AA;
1A2A3A;
1AAA2AAA;
1A1A1A2A2A2A;
Визначте, які оператори реалізують обчислення f = 10! Позначте всі правильні відповіді.(Кількість балів 2) *
Аf:= 1; For i := 2 to 10 do f := f*i;
Бf:= 1; For i := 1 to 10 do f := f+і;
Вf:= 1; i := 1; While i f:= 1; For i := 1 to 10 do f := f * A;
В яких операторах допущені помилки?Позначте всі правильні відповіді.(Кількість балів 2) *
А K := 0; For і := 9 to 1 do K := K*2;
Б K := 81; Y := 1; For і := 1 to Sqrt(K) do Y := Y*2;
В K := 1; C := 0; For і := 1 to 64 do begin K := K+і; C:=2*і; end;
ГY := 0; For X := 0.1 to 0.9 do Y := Y+Sіn(X);
Встановіть порядок розташування операторів у програмі для визначення кількості парних серед введених з клавіатури восьми довільних чисел.(Кількість балів 6.00) *
1 2 3 4 5 6
Б) For i := 1 to 8 do begin
А) a := StrToInt(InputBox('Ввести 8 чисел', IntToStr(i), '0'));
Е) Edit1.Text := IntToStr(k);
Д) If a mod 2=0 Then k := k+1;
Г) k := 0;
В) end;
Б) For i := 1 to 8 do begin
А) a := StrToInt(InputBox('Ввести 8 чисел', IntToStr(i), '0'));
Е) Edit1.Text := IntToStr(k);
Д) If a mod 2=0 Then k := k+1;
Г) k := 0;
В) end;

Показать ответ
Ответ:
Anton222666222
Anton222666222
15.06.2021 15:04
#include <vector>
#include <algorithm> 
using namespace std;
 int main() {
    string s; 
   vector<char> vowels = {'a','e','i','o','u','y'};
    cin >> s; 
  int count_letters = 0; //сколько букв одной гласности подряд 
  int count = 0; // сколько букв добавить 
   int state = -1; //для гласности 
   int c = state; // для запоминания 
   for(int i = 0 ;i < s.length(); i++, c = state) {
        if(find(vowels.begin(),vowels.end(),s[i])!= vowels.end()) 
           state = 0;
        else state = 1; 
       if(c==state) count_letters++; 
       if(count_letters == 3) { 
           count_letters = 1; //так как одна буква остается справа от разделяющей
            count++; 
       } 
   } 
  cout << count;
}
0,0(0 оценок)
Ответ:
Рвововоаоа
Рвововоаоа
26.08.2020 19:47
#include <bits/stdc++.h>
using namespace std;
int a[100001];int main(){    int n, c = 0;    cin >> n;    for(int i = 1; i <= n; ++i)    {        cin >> a[i];    }    for(int i = 1; i <= n; ++i)    {        if(a[i] < a[i + 1])        {            if(i != n)            {                c++;            }        }    }    if(c == n - 1)    {        cout << "YES";    }    else        cout << "NO";    //cout << "Hello world!" << endl;    return 0;}//sadasdasd
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота