М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
галина261
галина261
16.06.2021 09:09 •  Информатика

Алфавит языка Паскаль не входят:
1) латинские прописные буквы
цифры
2) русские строчные буквы
3) латинские строчные буквы
4) русские прописные буквы
Какой тип данных описывается как integer?
1) целочисленный
2) Вещественный
3) строковый
4) логический
Оператор ввода данных:
1) if... then ...
2) read(...)
3) var
4) write(...)
Оператор вывода:
1) if... then ...
2) read(...)
3) var
4) write(...)
Какой оператор присваивания записан правильно?
1) ч:=ч+1
2) f=:f+1
3) f:=f+1
4) f+1:=f
Указать оператор условного перехода в неполной форме:
1) if r=4 then r:=r+1
2) if r=4 then r:=r+1else r:=r
3) if r=4 else r:=r+1

👇
Ответ:
ksenichchka
ksenichchka
16.06.2021

1)4

2) 1

3) 2

4)4

5)3

Объяснение:

4,8(77 оценок)
Открыть все ответы
Ответ:
4okoladka100
4okoladka100
16.06.2021
Type  date = record    day: 1..31;     month: 1..12;         year: integer ;        end;var    a: date := (day: 8; month: 7; year: 2012);  b: date := (day: 6; month: 7; year: 2012);    c:integer;
procedure OutDate(d: date);begin  with d do writeln(day, '.', month, '.', year);end;begin if a.year > b.year then c:=1                     else c:=-1 ;                                         if a.year = b.year then                                         if  a.month > b.month then                                         c:=1                                                                   else c:=-1;                                                                       if a.year = b.year then                                                     if a.month = b.month then                                                        if a.day > b.day then c:=1                                                                          else c:=-1;  if a.year = b.year then                                                                 if a.month = b.month then                                                                     if a.day = b.day     then c:=0;                                                                                                                                                            OutDate(a);                                                                              OutDate(b);                                                                               writeln('otwet:', c);end.
4,6(51 оценок)
Ответ:
pavlova62
pavlova62
16.06.2021
Var s,tmp:string;
     i,n:integer;
     flag,word:boolean;
function letter (const let:char):boolean;
 begin
   if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true
     else letter:=false;
 end;
begin
  readln (s);
  s:=s+' ';
  n:=length(s);
  flag:=false;
  for i:=1 to n do
   begin
     if (letter(s[i])) and (not flag) then
      begin 
        flag:=true;
        tmp:='';
        word:=false;
      end else if (not letter(s[i])) and (flag) then
      begin 
       flag:=false;
       if (word) and (not (tmp='')) then writeln (tmp);
      end;
     if (flag) then
      begin 
        tmp:=tmp+s[i];
        if (s[i]='k') then word:=true;
      end; 
   end;
end.
4,8(70 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ