Перевести программу с pascal на c++ function sumdigits(n: integer): integer; begin result: =0; while n> 0 do begin result+=n mod 10; n: =n div 10 end end; begin var s: =readarrinteger('вводите: ', 3select(x-> sumdigits(; var i: =s.indexmax; var k: =s.where(x-> x=; case k of 1: begin write('сумма цифр наибольшая у '); case i of 0: write('первого'); 1: write('второго'); 2: write('третьего'); end; writeln(' числа') end; 2: begin write('сумма цифр наибольшая у '); if s[0]=s[1] then writeln('первого и второго чисел') else if s[0]=s[2] then writeln('первого и третьего чисел') else writeln('второго и третьего чисел') end; 3: writeln('суммы цифр у всех трех чисел равны') end end.
Ответы
//текуще время
#include <iostream>
#include <cstdlib>
#include <cstring>
using namespace std;
string dig(int n)
{
string st="";
if (n>9) { st=st+char(n%10+48); st=char(n/10+48)+st; }
else st=st+'0'+char(n+48);
return(st);
}
int main(int argc, char** argv) {
int n,k,m,sc;
string s="";
cout<<"n = "; cin>>n; cout<<endl;
k=n/3600;
m=(n-k*3600)/60;
sc=n-k*3600-m*60;
if (k>24) k=k%24;
if (k<10) s=s+char(k+48)+':';
else s=s+dig(k)+':';
s=s+dig(m)+':';
s=s+dig(sc);
cout<<"time: "<<s<<endl;
system("pause");
return(0);
}
#include <iostream>
#include <cstdlib>
#include <cstring>
using namespace std;
string dig(int n)
{
string st="";
if (n>9) { st=st+char(n%10+48); st=char(n/10+48)+st; }
else st=st+'0'+char(n+48);
return(st);
}
int main(int argc, char** argv) {
int n,k,m,sc;
string s="";
cout<<"n = "; cin>>n; cout<<endl;
k=n/3600;
m=(n-k*3600)/60;
sc=n-k*3600-m*60;
if (k>24) k=k%24;
if (k<10) s=s+char(k+48)+':';
else s=s+dig(k)+':';
s=s+dig(m)+':';
s=s+dig(sc);
cout<<"time: "<<s<<endl;
system("pause");
return(0);
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Записать выражение на языке паскаля (1+1/х^2)-12х^2у
Автор: KseniGum9
Решите 12 , должна быть блок схема
Автор: Sakmarov
Сколько мбайтов составляют 2 в 14 степени кбайтов?
Автор: oniks-plus
Графикалық ақпараттарды кодтау туралы жаз
Автор: olgakuz00261
2. Определите виды информационных каналов (2 Б)Информационные каналы могут быть:
Автор: anitanemtsewa
Как сделать через какую программу?
Автор: rashodnikoff
2. Черно-белое изображение без градаций - это два цвета (черный и белый). Глубина цвета - 1 бит, так как одним битом можно закодировать два варианта. 50*50 = 2500 бит, 2500/8 = 312,5 = 313 байт.
3. Определим глубину цвета, для этого разделим объем на количество пикселей.
(3*1024*8 бит) / (128*64) = (3*2^10*2^3) / (2^7*2^6) = 3 бита.
Тремя битами можно закодировать 8 цветов, т.к. 2^3=8
4. Палитра состоит из 64 цветов, значит глубина цвета равна 6 битам, т.к. 2^6 = 64. Объем в килобайтах будет равен
(32*128*6) / (8*1024) = (2^12 * 6) / 2^13 = 6 * 2^(-1) = 3 Кбайт