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

A˄B̅˅C˅A̅˄C, если А = Истина, В = ложь, С = истина

Показать ответ
Ответ:
Имра11111
Имра11111
26.07.2021 03:03
Задача №1.
#include<iostream>
#include<math.h>
using namespace std;
long i,sum;
int main()
{
for(i=10; i<=30; i++)
{
sum+=i;
cout<<sum<<endl;
}
return 0;
 }
#include<iostream>
#include<math.h>
using namespace std;
long i,sum;
int main()
{
 i=10;
sum=0;
while(i<=30)
{
sum+=i;
cout<<sum<<endl;
i++;
}
 return 0;
}
#include<iostream>
#include<math.h>
using namespace std;
long i,sum;
int main()
{
 i=10;
sum=0;
do
{
sum+=i;
cout<<sum<<endl;
i++;
}
while(i<=30);
return 0;
}
№2
#include<iostream>
#include<math.h>
using namespace std;
long i,a,b,k;
int main()
{
 cin>>a;
for(i=1; i<=10; i++)
{
cin>>b;
if(b==a) k++;
}
cout<<k;
 return 0;
}
#include<iostream>
#include<math.h>
using namespace std;
long i,a,b,k;
int main()
{
i=1;
cin>>a;
while(i<=10)
{
cin>>b;
if(b==a) k++;
i++;
}
cout<<k;
return 0;
}
#include<iostream>
#include<math.h>
using namespace std;
long i,a,b,k;
int main()
{
i=1;
cin>>a;
do
{
cin>>b;
if(b==a) k++;
i++;
}
while(i<=10);
cout<<k;
return 0;
}
№3
#include<iostream>
#include<math.h>
using namespace std;
long a,b,k;
int main()
{
cin>>a>>b;
k=a*a+abs(b)+5*a-10*b;
cout<<k;
return 0;
}
№4
#include<iostream>
#include<math.h>
using namespace std;
long a,b,k;
int main()
{
cin>>a;
if(a>=0) a++;
else a-=2;
return 0;
}
№5
#include<iostream>
#include<math.h>
using namespace std;
double i,u;
int main()
{
for(i=0; i<=10; i+=0.3)
{
u=i+1;
cout<<u<<endl;
}
return 0;
}
0,0(0 оценок)
Ответ:
Yotuberik
Yotuberik
19.05.2021 02:22
Var x,y,z,f:integer;
begin
write('Введите число: ');
readln(x);
while x>0 do
   begin
   y:=x mod 10;
   z:=x div 10;
      while z>0 do
         begin
         if (z mod 10)=y then f:=1;
         z:=z div 10;
         end;
   x:=x div 10;
   end;
if f=1 then writeln('Верно, есть одинаковые цифры')
   else writeln('Нет одинаковых цифр')
end.

Если использовать строковые ф-ии, то программа будет проще:
var
  i,k,f:integer;
  s,t:string;
begin
write('Введите число: ');
readln(s);
k:=length(s);
for i:= 1 to k do
  begin
  t:=copy(s,i+1,k-i+1);
  if pos(s[i],t)>=1 then f:=1;
  end;
if f=1 then writeln('Верно, есть одинаковые цифры')
  else writeln('Нет одинаковых цифр')
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота