Var c, d, rez:integer;
function k9 (a,b:integer):integer;
begin
if a=b then rez:=a+b else rez:=b-a;k9:=rez
end;
begin
write ('Введите a - ');readln(c);
write ('Введите b - ');readln(d);
writeln(k9(c ,d));
<span>end.</span>

Тогда так

0 0

1 год назад

Помогите с информатикой,пожалуйстааа Нужно написать программу в Pascal ABC

Hugo Chavez [272]

Слова отделяются друг от друга одним пробелом, знаков препинания нет.
var
s,s1:string; l,p:integer; b:boolean;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
l:=pos(' ',s1);
b:=true;
while p>0 do
begin
delete(s1,1,p);
p:=pos(' ',s1);
if p>0 then b:=b and (l=p);
end;
if b then writeln('ДЛИНА');
end.

Пример:
<span>Введите строку:
мама мыла раму
ДЛИНА
</span>

0 0

2 года назад

Программа на с++ Напишите программу, которая вводит четыре натуральных числа (a, b, c и d) и находит все пятизначные числа, кото

Nursultan13

#include <iostream>
using namespace std;

int main(){
int a,b,c,d,o=0;
cin>>a>>b>>c>>d;
for (int i=10000; i<=99999;i++)
if (i % a ==b && i % c == d)
{
cout<<i<<' ';
o=1;
}
if (o==0)
cout<<-1;
}

0 0

2 года назад

Сссссссрочно задание 2

inkdno [49]

Блин плохо видно...,....

0 0

3 года назад