Регистрация
zholdashev
08.01.2022 17:52
Информатика
Есть ответ 👍

Написать программу вычислить значение выражения (a-b)/(c-d)

247
483
Посмотреть ответы 2

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

Cardboard
Cardboard
4,4(55 оценок)
  #include < iostream>   using namespace std; int main()  {   int a,b,c,d,n;   cin> > a> > b> > c> > d;   n=(a-b)/(c-d);   cout< < n;   return 0; }
tagirrulit
tagirrulit
4,8(64 оценок)
Uses crt; var s,s1: string;     a: array[1..100] of string;     n,i,j,k: byte; begin clrscr; writeln('введите текст из слов, разделенных пробелами'); readln(s); s: =' '+s+' '; {добавим пробел в начало и в конец} n: =length(s); i: =2; k: =0; {всего слов} while i< =n do if (s[i]< > ' ')and (s[i-1]=' ') then{если не пробел а перед ним пробел}   begin   k: =k+1; {+ слово}   j: =i;   s1: ='';   while (j< =n) and (s[j]< > ' ') do {пока не пробел и не конец строки}     begin     s1: =s1+s[j];     j: =j+1;     end;   a[k]: =s1; {пишем его в массив}   i: =i+length(s1); {перешагиваем через слово}   end else i: =i+1; {пропускаем пробелы} for i: =1 to k-1 do {сортируем массив по возрастанию=по алфавиту} for j: =i+1 to k do if a[i]> a[j] then   begin   s1: =a[i];   a[i]: =a[j];   a[j]: =s1   end; writeln('слова текста в алфавитном порядке: '); for i: =1 to k do writeln(a[i]); readln end.

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